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MODULE READSAVE (ZTITLE ‘R oo eye Set’ 
pDEnt = ‘Vv 1 


BEGIN 


' } 
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is COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


:® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND conics 
IN ACCORDANCE WITH THE TERMS OF reise one we 2 WITH THE 
SION THE ABOV vs COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
S_ THEREOF ~y ry BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
44 a TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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; INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!® CORPORATION. 

:® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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5 5 ABSTRACT: 
i This module contains routines to do the 1/0 involved in reading 
; save sets. 
re ? ENVIRONMENT: 
¢ § VAX/VMS user mode 
is Bia 
: § AUTHOR: Andrew C. Goldstein, CREATION DATE: 2-Sep-1980 19:17 
$8 3 MODIFIED BY: 
50 50 i v04-001 Lv0527 Larry Yetto 5-SEP-1984 11:12 
1 51 i Correct back goace hands tng n INIT_SAVE_TAPE and FIN_ IN_ SAVE so that 
¢ 26 i hy A A re. consistant with the modifications previously done in 
5 i We now backspace only 2° tape marks instead of three 
: re at ke es of a save set. 
$ 2$ i v03-014 LMP0272 L. Mark Pilant 66-Jul-1984 8:48 
5 i Modify BACKUP to always use a full FIB. 


! 
‘ee 
i FACILITY 
Backup/Restore 


seeeases 
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v0O3-013 LMP0204 Mark Pilan 7-Mar-19 9:15 
orrectly handle” multi-reel ease sets during a wildcard 
restore or List. 


v03-011 ACG0370 Andrew C. Goldstein “Nov-1983 17:14 
Fix block skip viet on in tape repos tioning 

v03-010 ACGOSSe ew C. Goldstein 2-May-1983 13:39 
Remove .832 from BACKDEF require tile 

v03-009 ACG0328 Andrew ew C. Goldstein, 11-Apr-1983 16:06 
Improve repositioning over bad tape 

v03-008 ACGO0313 Andrew C. Goldstein, pt gph 21:40 
Add another layer of routine around RE ADY NEXT _ VOLUME 


so that miscellaneous callers of it don't get the version 
with the handler. 


v03-007 MLJ0104 Martin L. Jack, 31-Jan-1983 4:18 
Lower the severity of errors that occur during mounting 
continuation volumes to informational so that they do not 
affect the image return status. 


v03-006 LMP004 L. Mark Pilant 20-Jul-1982 16:50 
[etme a PCRS SNAME we the Fakes to FMGSMATCH_NAME in the 
routine MATCH_SSNAM 

¥03-005 eee L. Mark Pilant, at dune 1962 12:20 

suppers tor wildcard save set names on a LIST or 
RESTOR operation. 

v03-004 ACG0293 Andrew C. Goldstein 7-Jun-1982 15:49 
Fix handling of backspacing into BOT on verify pass 

v03-003 ACG0280 Andrew C. Goldstein, 2-Apr-1982 16:48 

Add dot to save set name with null type 
v03-002 eceser’ Andrew C. Goldstein, 30-Mar-1982 15:30 
Check for spurious change nN save set name 
v03-001 acece7s Andrew C. Goldstein 26-Mar-1982 18:23 
Allow XOR groups to be one lorger than indicated, 
reject non-BACKUP blocks quiet 

v02-012 ACG0235 Andrew C. Goldstein, 8-Dec-1981 21:35 
Backspace tape over small save sets for verify 

v02-011 MLJ0054 Martin L. Jack, 31-Oct-1981 15:03 
Implement network save sets. Move STAACP globals to common. 

v02-010 aceget7 Andrew C. Goldstein, 10-Sep-1981 18:01 

alidate tape block size in reading save sets 

v02-009 acepet’ Andrew C. Goldstein, 29-Jul-1981 16:52 


Implement sequential disk save sets 


See 


—————_——_————_ —— - -_— 


Reorganize global storage. Remove Limiting of buffer count as 
COMMAN now does this. Change IQUA_FILE to IQUA_SAVE. Ensure 
that Q10 service failures are fatal: Correct v02-001 to apply 
to continuation tapes. 


| 9 
| READSAVE Read Save Set 15- ep-1 213: AX-11 Bliss-32 V4.0-74 P 3 
Yoe-004 ; Versep-i9pe 41:58:56 — YoackuPeSeeneapsave .o35;2 a | 
15 15 v02-008 ACG0209 Andrew C. Goldstein, 5-Jun-1981 15:09 | 
18 : Stop on excessive input error rate | 
1 1 v02-007 mLJ0025 Martin L. Jack, 8-May-1981 13:48 
1 1 Reorganize qualifier database. Rove global variables into 
: common. Make routines non-globai if possible. 
§ § v02-006 ACG0202 Andrew C. Goldstein, 23-Apr-1981 13:44 
Z Fix handling of /SAVE on magtapes 
5 5 vO2-004 MLJ0018 Martin L. Jack, 7-Apr-1981 21:09 
§ $ Correct signal parameters. 
3 : v02-003 MLJ0010 Martin L. Jack, 25-Mar-1981 15:38 
5 5 
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: 1 1 

: 1 1 

- -s 1 

+s 1 

2 1 

3; 1 1 

: 4 1 

. % 1 

ae 1 

: 1 1 

7 1 

~ 9 1 

. ¥ 1 

: 1 1 

: 1 1 

<? 1 

: 1 1 

4 } 

‘7% 1 v02=002 ACG0197 Andrew C. Goldstein S-Mar-1981 17:15 
: : Make not first reel error fatal if image restore 
..¢ 8 1 v02-001 ACG0193 Andrew C. Goldstein, 26-Feb-1981 17:04 
3 i 8 1 Allow null input save set name, add file type 
: 139 0139 1 

: 140 ; 40 1 jee 

> 141 41 1 

; 142 4g 1 

: 16 43 1 LIBRARY "SYSS$LIBRARY:LIB'; 
+ 164 44 1 REQUIRE *SRCS$:C 3 

> 145 1250 1 REQUIRE "LIB$:BACKDEF'; 

: 146 1700 1 

> 16 1701 1 EXTERNAL LITERAL 

> 148 1 0¢ 1 BACKUP$_OPENIN 

+ 149 1703 1 BACKUPS _READERR, 

: 150 1704 1 BACKUP$~ CLOSE! 

> 151 1705 1 CKUP$~SHORTBLOCK, 
: 13¢ 1 1 CKUP$~BLOCKCRC, 

> 15 1707 1 BACKUP$HDRCRC 

> 154 1708 1 BACKUPS_BLOCKLOST, 
: 155 1709 1 CKUP$~POS ‘ 

; 136 1710 1 BACKUP$_POSITE 

3 15 1711 1 BACKUP$_NOTBKBLOCK, 
: 158 121 1 BACKUP$— INVBLKHDR, 
: 159 1713 1 BACKUP$~INVSTRUCT 

> 160 1714 1 BACKUP$~ INVBLKSIZE, 
> 161 1715 1 BACKUPS_INVFILEXT, 
; 16 1716 1 CKUP$"LABELERR, 

> 16 1717 1 BACKUP$NOTAN 

> 164 1718 1 BACKUPS _NOTSAVESET, 
> 165 1719 1 BACKUP$_NOTISTVOL, 
: 166 1720 1 BACKUPS WRONGVOL 

> 16 1721 1 CKUP$~BADBLKSIZE, 
> 168 17 ; 1 “FATALERR, 

; 169 1723 1 BACKUP$-READERRS 

$ 170 1724 1 BACKUPS$~SOF TRERRS, 
> 171 1725 1 BACKUPS” SSCHANGE , 
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: 1 1 1 BACKUP$_XORERR 
5 178 8 1 ae ~OART VERIFY, 
; i 1188 BACK “REGSAvSEr: 
: 17 1731 1 FORWARD ROUTINE 
178 17 3 1 READY_NEXT_VOLUME, 
1 17 1 NEXT_JOLUME; 
18} as 
182 17 1 GSDEFINE(); ! Define global common area 


absave Read Save Set 

1 READ_BLOCK = read a save set block 
3; 1 1737 1 ZSBITL ‘READ_BLOCK = read a save set b 
3 ; 5 if : ROUTINE READ BLOCK (READ_AHEAD, CRC_CH 
=| 1740 1 t+ 

=? 1741 1! 

3; 1 reg 1 ! FUNCTIONAL DESCRIPTION: 
we 1745 1! 

s 191 1744 1! 

; 136 1745 1! 

; 19 1f68 1 ! CALLING SEQUENCE: 

: 196 174 1! READ_BLOCK (READ_AHEAD) 
: 195 1748 1! 

3 138 1749 1 ! INPUT PARAMETERS: 

:; 19 1e29 1! RE 

: 198 1751 1! FALSE t 
; 199 \72¢ 1} CRC_CHECK: TRUE to check b 
; 200 1755 1! 

3 1 1754 1! 

3 06 1755 1! IMPLICIT INPUTS: 

; 20 1756 1! NONE 

: 204 1757 1! 

; 05 1758 1 ! OUTPUT PARAMETERS: 

3 5] 1759 1! NONE 

; 20 1760 1! 

; 208 1761 1°! IMPLICIT OUTPUTS: 

: 209 1206 1! NONE 

: 210 1763 1! 

3 11 1764 1 ! ROUTINE VALUE: 

3 i 1765 1! - address of BCB of buffer read 
; $} 1766 1! 

: 14 1767 1 ! SIDE EFFECTS: 

: 215 1768 1! NONE 

: 216 1769 1! 

: 217 1770 1 !== 

; 218 1771 «1 

3; 219 1772 BEGIN 

3 $s 1773 

; 221 1774 BUILTIN 

3 $56 1775 INSQUE, 

$ 2 1776 REMQUE 

3 226 177 TESTBITCS, 

; 225 1778 CRC; 

: 226 1779 

; 44 1799 LOCAL 

3 8 1781 STATUS, 

3 $$? 178¢ Pp 

: 0 178 BCB 

: 3 HA BUFFER 

3 2 1785 RAB 

3; 233 1786 RECP 

; 34 178 BLOCK_CRC, 

3 35 1788 HDR_CRC, 

3; 236 1789 CHECKSUM; 

: Zar 1790 

3; 238 1791 EXTERNAL ROUTINE 

; 239 176 FILE_ERROR 

: 240 179 GET_BUFFER, 


: REF BBLOCK, 


3 K 
: REF BBLOCK, 


: NOVALUE, 


lo 
ec 


1 
1 
C 
K 


Nn 9 

ea$ep-198e 11:53:96 EBAcKUPeSRESREADSAVE-B 
is 

) 


This routine reads a block from the input save set. 


AD_AHEAD: TRUE to enable asynchronous read ahead 
o read just one b 
ock CRC's, etc. 
FALSE to accept any block 


lock 


compute CRC instruction 


general status value ° 
ointer to chase BCB List 
uffer control block 

the 1/0 buffer itself 
input RAB 
ointer to end of records 
RC of data block 

CRC of block header 

output of CRC instruction 


' signal file-related error 
! get an 1/0 buffer 
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Or Four FER. ! free an 1/0 buffer 
WAIT; ! wait for 1/0 completion 


: If reading from a file, allocate a buffer and read a block. 
IF -QUALCQUAL_SS_FILEJ 
HEN 


BEGIN 
ca” REMQUE (.INPUT_WAITCO], BCB) 


WAIT (.BCB) 
ELSE 


BCB = GET_BUFFER (); 


RAB RABSW_0SZ] = .BC i size 
RABLRABSL-UBF) = 8 BCB~BUFF 


BEGIN 
STATUS = SREAD (Rae = RAB); 
RABCRABSL _BKT 

RWSV_SAVE_FAB FABSY -500] = TRUE; 


ELSE 
STATUS = SGET (RAB = 
preteee ~10, COUNT = PRABERABSU 882); 


BEGIN 
IF .STATUS EQL RMS$_EOF 
gg OO. STATUS] = SSS$_ENDOFF ILE 


BEG 
BCB tBce. STATUS] = .RABCRABSL_STS); 
cal BCB-STATUS2) = .RABCRABSC_STV); 


! If we are reading from tape or sequential disk, grab 1/0 buffers 
' and issue read ahead Q10's until half the buffer pool is used. Then 
! wait for completion on the first buffer. 


= , INPUT WAITCO): 
DECR' A FROM ( 

7 “READ A EAD 

THE (COM. BUFF _COUNT+1) / 2 
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voe-004 READ BLOCK = read a save set block 102800- 138 99:33:98 EBACKUP.SRCIREADSAVE .03 :2 
; 1851 ) 101 
; i 4 ; PO BEGIN 
; 301 1854 4 IF .P NEQ INPUT_WAITCO] 
: ; 1855 4 THEN P = ..P 
; 1 36 4 ELSE 
; 1 BEGIN 
; 305 1 § BCB = GET_BUFFER (); 
3 06 3 CHSFILL (0, BBHSK_LENGTH, .BCBCBCB_BUFFERI); 
; $08 1 IF, BBLOCK CRWSV_SAVE_FABLFABSL_DEV], DEVS$v_SoD] 
: 310 1888 4 BEGIN 
; 311 P 1 a STATUS = $010 (CHAN = .RWSV_CHAN, 
$ \¢ P 1865 6 FUNC = IO$_READLBLK, 
: 31 P 1 é EFN = BCB"S READ 
: 314 Pi 7 10$8 = acetate 1088) 
> 315 P 1 6 Pi = .BCB BCB BUFFER, 
: I P 1869 6 P2 = .BCBCBCB-SIZE 
ROR ew 7 
: 319 187 
; 320 1898 § 
: 31 1874 6 BEGIN 
Py LOCKN = ,RWSV_IN_VBN; 

1875 6 BCBLBCB_BLOCKNUM] = .RWSV_IN VB 
; 33 1876 4 IF RWSV_IN_VBN GEqu .RWS0_EOF 
3; 325 1878 § BEGIN 
; 326 1879 7 BCB[BCB_STATUS] = SSS$_ENDOFF ILE; 
3 $e 1330 4 STATUS = 1; 
: 329 1882 $ 
; 188 BEGIN 
: 1 P 1884 7 STATUS = S$QI10 (CHAN = .RWSV_CHAN, 
3 $ P 1885 7 FUNC = I0$_READVBLK, 
: P 1886 7 EFN = BCB7S READ 
3 334 Pp 1887 7 10$8 = ecetate 10$B) 
: 35 P 1888 7 Pi -BCBCBCB_BUFFERI, 
: P 1889 7 Pe = .BCBCBCB-SIZE), 
: 37 Pp 1890 , P = .RWSV_INZV 
; 339 1898 7 RWSV_IN_VBN = .RWSV_IN_VBN ¢ (.BCBCBCB_SIZEJ+511) / 512; 
: ° S92 END sik 
; é 1895 IF NOT * STATUS 
: 4 1897 FILE_ERROR( 
; 5 1898 5 GACKUP$_READERR + STSSK_SEVERE, 
3 6 1899 -RWSV_SAVE_FAB, 
: f 1900 *STATOS); 
: 349 1908 BCB BCB_sucC_ACT] = 0; 
: 350 190 BCB[BCB-FAIL~ACT) = 0: 
: 351 1904 BCB[BCB-STATE) = BCB_S READ; 
; 3g 1905 INSQUE T.8CB, .INPUT"WAITC14); 
3 5 1 4 END; 
3 54 1907 3 END; 
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REMQUE (.INPUT_WAITCOJ, BCB); 
WAIT (.8CB); 
BcBLBC STATUS2) = 0; 


! Do basic validation vag | on the buffer. It should be of the expected 
; Length, and the CRC's, if present, should check. 


If .BCBCBCB_JO_ STATUS] EQL_ SSS$_ENDOF TAPE 
THEN BCB(BCB_IO_STATUS) = TRUE; 


BUFFER = 8 B(BCB_BUFFER; 
IF NOT .B B{8CB_10_STATUS) 


E IN 
IF -QUALCQUAL_SS FILE} 

THEN. ac [BCB_10 BCOUNT) = 0; 

If .BCBCBCB_TO STATUS) EOL és _ENDOFF ILE 
IF .RWSV_IN _ORGERRCOI 

THEN 


BEG! 
RUSV. IN “ORCERRET? = Team, STATUS]; 
+ INTORGERRE1 


END 
ELSE IF .CRC_CHECK 
THEN 
BEGIN 
UF pec erec8_10_BCOUNT) LSSU .BCBCBCB_SIZE) 
BEGIN 
CHSFILL (0, .BCBCBCB_SIZEJ-.B8CBC(BCB_10_BCOUNT], .BUFFER+.8CB(BCB_10_BCOUNT)); 
ececece., STATUS) = BATKUPS “SHORTBLOCR; 
END; : 
IF .CRC_CHECK 
wen 
Stock CRC = pir entaoh $L_CRC); 
HDR CR _CRECKSUM); 
BUFFER BBHSL_¢ 
BUF FERCBBHSW~ “freee suai = 0; 


cRC (Rusy ¢ CRC16, REF (0), ZREF (BBHSK_LENGTH), .BUFFER, CHECKSUM); 
THEN ptateca’s sraiusi = BACKUPS. HDRCRC; 


( 
(. QUAL CQUAL cRC OR (. CON, f AGSCCOM_VERIFYING] AND .QUALCQUAL_OSAV))) 
AND NOT FERCBBH $v_NO 
AND ‘ecetere. STATUS 
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sa 
$3 
~~ 


sa 


FREE BUFFER (.BCB); 


FILE “ERROR (BACKUPS FATALERR, .RWSV_SAVE 
In ORGERRLOI. 


RWSV_IN ~OREERREI): 
J, 8CB); 


| 
3 tig 1366 H Pee ausy AUTODIN, BREF ( BCB(BCB_SIZEJ, .BUFFER, CHECKSUM) 
F ig 1368 § gBLocK. CRO NEQ (NOT .CHECK SUA) rs i ; : 
> 61 1 

3 aH 1390 THEN ’ scacece. STATUS] = BACKUPS_BLOCKCRC; 

: 61 197 BUFFERCBBHSL CRC] = BLOCK CRC; 

: 430 1378 BUFFERCBBHSW_CHECKSUM) = .ADR_CRC; 

: 6 1975 If NOT .BCBCBCB_STATUS) 

3 6 5 1976 AND .RWSV_] NORGERALOS 

: 6 197 THEN 

: 625 1978 ri BEGIN 

. 6 1979 4 RWSV_IN -ORGERREO) = BCBCBCB_STATUS); 

: 6 1980 4 RWSV—IN-ORGERR 6; 

: 428 1981 END; 

; 2 1988 me: 

: 431 1984 ! If this block read with an error, count it. If there are too many 

3; 6 ¢ 1985 ' consecutive errors, complain. Medium offline is handled specially. since 

:; 6 12e8 ' operator help is clearly necessary. 

:  o3e 1988 

: 6 1989 IF NOT .BCB(BCB_STATUS) 

; 2 198) 6 eccin 

: 439 199 RWSV_SEQ_ ERRORS = .RWSV_SEQ_ERRORS ¢ 1; 

: 640 1398 If .6ceC6ce_10 “status EQ. SS$_MEDOFL 

> 661 1994 OR .BCBLBCB-10~STATUS) EQL SSS$~VOLINV 

; g + <a 

3 444 1997 4 PRISOUE (,8CB, RWSV_HOLD_LISTLO}); 

; car 2000 ‘ ! oeher Bsa reads are also likely to fail with the same error. Clean 

: 649 002 4 

3 450 008 4 UNTIL REMQUE (.INPUT_WAITCOJ, BCB) 

: 465 5 BEGIN 

: 45 AIT (.BCB); 

: 654 00 F -Bretece 1O_STATUS] NEQ SS$_MEDOFL 

: 455 008 -BCBLBCB-10-STATUS) NEQ SSS~VOLINV 

; 4 THEN 

3; 45 4 BEGIN 

: 458 6 INSQUE (.BCB, INPUT WAITCOI); 

: 459 6 BCBCBCB STATE) = BCB_S_READ 

: 460 6 EXITLOOP; 

: 661 : END 

: é 

3 4 

; 4 

: 4 

; 4 
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REMQUE (.RWSV AWOL D. ULTST 
END 
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; 4 

: oh ¢ OLE TF acy SEO_ERRORS GTRU 100 

: 4 ¢ 4 tek T Srayies (CON. FLAGSECOM, CONTINUED) 

: 47 6 ; ELSE FALSE) 

; 4676 THEN 

¢ oh 8 2 PRSOUE (.BCB, RWSV_HOLD_LISTCO? 

7 GE a aE ia tay Reet tency, 
; crs 2 REMOUE ( -RWSV RMOLB trstfol 8 1, 

= {je 

: 4 4 ELSE 

; 484 RWSV_SEQ_ERRORS = 0; 

: 6 0 .BCB 

3 4 040 END; ! End of routine READ_BLOCK 


«TITLE READSAVE Read Save Set 
-IDENT \vV04-001\ 


«PSECT COMMON,NOEXE, OVR,2 
00000 GLOBAL _BASE : 
00000 FREE_LIST: 
00008 INPUT awaits 
00010 REREAD_WAIT: 
00018 OUTPUT WAIT: 


$98 0 JPI_UIC: “BLKB 
024 JPI-USERNAME : 


00030 JPI_DATE: ~ 
00038 JP1_NODE “DESe: 
00040 JPI_CURPRIV: 
00048 Syl version: 


-BLK 
SYI_SID:.BLKB 
8008 RWSU_HOLD LIST: 


00058 RwSV wcncigen® 
00098 RwSV -AUTODIN: 
00008 RwSV ~FILESET 1D: 
QO0EO RWSV_VOLUME_ID: 


oo" oe 
cee o wo @ 


ifden-1964 90:5: : 


OOOEC RwSV_vOL_ “RURBER: 
QOOEE RWSV_SEG_NUMBER: 
000FO RwSv sd gees 
O00F4 RwSV_SAVE_GUAL 

000F8 RwSv_SAvE FAB: 
OOOFC RwSV_ CHAN 

00100 RWSV_xOR “Bc: 
00104 RwSv_IN_SEQ: 
00108 RwSv_IN_SEG 
0010C RWSV_IN_XOR SEQ: 
00110 RWSV_IN_XOR RFA: 
00116 oe, 
00117 RWSV_XORSIZE: 
00118 RwSV_IN_ GROUP. $1 
0011C RWSV_IN_ERRORS: 
OO11E RWSV_IN oa 
00120 RWSV_IN_ORGERR: 
00128 RWSV_IN_ oe 
0012¢ RWSV_IN_ Cy 
00130 RWSV_ALLOC: 

00134 RWSV_EOF: 

00138 RwSV_OUT “sta: 
0013¢ RwSV_OUT WEN: 
00140 RwSV_OUT “BLOCK, COUNT: 
00144 RWSV_OUT_ ERRORS: 
00146 RWSV_SEQ_ “ERRORS 
00148 RwSV_OUT -GROUP COUNT 
00149 RwSV -Pavb ig: 
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001¢4 
001C6 
001¢8 
001¢9 
OO1CA 
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001C¢C 
00108 
OO1E4 
OO1EC 
0020¢ 
00200 
0020€ 
0020F 
00210 
00210 
00214 
00216 
00218 
0021C 
00220 
00224 
00228 
0022¢ 
00230 
00234 
00238 


“1 
b-ep-196 9:33: 
QUAL: KB 

COM “ Eswanes 
com, vALbe Tipe: 
COM_FLAGS: 

BL 
COM PADDING: 
COM_BUF F “OUT 
COM! =SETCOUNT: 
COM_O SET COUNT: 
COM_1 _STAUCNAME 
COM_O_ STRUCNAME : 
COM_O_BSRDATE: 
ALT_SSNAME : 
. LKB 
INPUT_FUNC: 
INPUT_RTYPE : 

-BLKB 
OUTPUT _FUNC: 
FAST_STRUCLEV: 
INPUT_BEG: 

LKB 

INPUT CHAN: | 
INPUT Fags: 
INPUT _PADDING: 


INPUT_QUAL : 
INPUT_BAD: 

. LK 
INPUT BLOCK : 
INPUT RAXBLOCK: 
INPUT MEDIA 1D: 
INPUT _NAMEDESC: 

-BLKB 
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00240 INPUT _STATBLK: 
00248 INPUT “woiehee: 
00248 INPUT “crate: 
00250 INPUT “REWDATE: 
00258 INPUT “EXbOATE: 
00260 INPUT “BAIDATE: 
00268 INPUT “FCEOUNER: 
0026C INPUT_FILECHAR: 
00270 INPUT “necaiin: 
00290 INPUT HOR END: 
00290 INPUT_END: 


-BLK 
00290 INPUT PROC LIST: 
00294 INPUT_PLACEMENT: 


-8LKB 
0029¢ INPUT_vBN LIST: 


BLK 
002A4 INPUT PLACE LEN: 
002A6 INPUT_PADDING_2: 


002A8 OUTPUT BiG: 
0028 OUTPUT_CHAN: 
002AC OUTPUT FiAGS: 
OO2AE OUTPUT PADDING: 
00280 OUTPUT FAB: 
00284 OUTPUT NAR: Oo 
00288 OUTPUT_B¢B: 
0028C OUTPUT -0iAts 
002CO0 OUTPUT_BAD: 


LK 
002C4 OUTPUT_BLOCK: 


-BLK 
002C8 OUTPUT_MAXBLOCK: 


-BLKB 
oo2cc OUTPUT _DEVGEON: 
00204 OUTPUT_ATTBUF : 
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READ BLO ek - ‘peed @ save set block 


iecdeo-1984 90:15:02 


-BLKB 144 
00364 ovtPut tid: ‘ 
00364 LIST -TOTFILES: , 
00368 LIST ~rorsitE: 
BL 4 
0036C VERIFY_FAB: y 


KB 
00370 VERIFY_USE COUNT : 
00374 VERIFY_QUAL : 
00378 COMPARE _BCB: 
0037C FAST_BUFFER: 

-BLKB 
00380 FAST_BUFFER SIZE: 
00384 FAST_RVN: a. 
00385 FAST PADDING: 
00386 DIR -VERLIMIT: 
00388 FAST_VOL ~BEG: 
00388 FAST_IMAP Size: 
0038C FAST_ IMAP 
00390 FAST_HDR_ “OFFSET: 
00394 FAST_B0OT LBN: 
00398 FAST_VOL_END: 
00398 JOUR_BUFFER: 
0039C JOUR_DIR: 

-BLKB 
003A0 JOUR_HIBLK: 
003A4 JOUR_EFBLK: 
003A8 JOUR_INBLK: | 
OO3AC JOUR_FFBYTE: 
OO3AE JOUR_INBYTE: 

-BLKB 
00380 JOUR_STRUCT LEV: 
00382 JOUR_COUNT: 
00383 JOUR_REVERSE : 

-BLKB 
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00384 JOUR_EXS2: 
00386 JOUR_PADDING: 
-BLK 
00388 CHKPT_HIGH SP: 
0038C CHKPT_LOW SP: 
003CO CHKPT “STACK: 
003C4 CHKPT_VARS: 
003¢8 CHKPT “stiuee 


-BLKB 
+4 CC DIR Foes -BLKB 
CC DIR-CHAN 


00300 p nan: KS 
O8De DIR “Dev DESC: 
00308 DIR_SEL_DIR: 
003€0 DIR_SEL_NTV: 
OO3E8 DIR_STRUCLEV: 
003€9 DIR_LEVELS: 
OO3EA DIR_FLAGS: 
003E8 DIR_STATUSS 
OO3EC DIR_STRINGS 
0052C DIR_STACK: 


00790 DIR -BLKB 
00794 DIR- “Ei LATEST: 


-BLKB 
pores DIR_END: .BLKB 
0798 DIR @SCAM IAT: 


0078C INPUT_MTL: 
007¢0 ouTPUT iL: 
007C4 CURRENT_ATL: 
007C8 CURRENT_VCB: 
007CC CURRENT WB: 
00700 ACL_FIB8 -DESCR: 


BL 
0708 ACL_FIB: -BLKB 
0818 ACL-LENGTH: 

-BLKB 


- —- =—- =—=— @ omer Ff OF fF fF Ff FH KH 


eee ee ef & > 


AX-11 Bliss-32 v4. 
BACKUP. SRC JREADSAV 


i783: 32 


— 
| READSA Read Save Set 
ee READ BLOCK = read a save set block 
28 444! G 
A 00000000° 
78 0153 CA 
57 00 
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OO81C ACL BUFFER: 
00820 CRYP_IN_ CONTEXT: 
00824 cRvP ou. CONTEXT: 
00828 CRYP_DA AEGNTEXT: 
0082C CRYP_DATA rv 
00834 CRYP_ DATA Te 
00838 CRYP DATA rt 
00840 CRYP DATA IV: 
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00848 CRYP_DATA CKSM: 
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—are BACKUPS_ 
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. N BACKUPS_WRONGV 

“EXTRN BACKUPS-URONGVOL 

‘ BACKUPS_ FATAL 

“EXTRN BACKUPS"REA 

; BACKUP$— SOF TRERRS 

-EXTRN BACKUPS"SSCHANG 

“EXTRN BACKUP “XORERRS 

-EXTRN BACKUP$~STARTVER 

, N BACKUPS RESUME» BACKUPS_NEWSAVSET 
FILE ERROR GEf BUF 


-PSECT 


OFFC 00000 READ_BLOCK: 
-WORD Save R2,R3,R4,R5,R6,R7,R8,R9I,R10,R11 


CODE .NOWRT,2- 


00 000. MOVAB WAIT 
ai 3f 09 MOVAB INPUT WAIT, R10 

3 FI 010 BBC #3, QOAL+15, 6$ 
BA 0016 REMQUE @INPUT_WAIT. BCB 
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D 9065 
4 00 9 3$: 
E8 0007 
Di 00078 
12 ooor 
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9 0094 
A 00098 
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b6 OOA7 8$: 
11 000A9 
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D pece 
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7C 0000 
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#BACRUPS$_READERR+4 
#3, FILE-ERROR 
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BUFFERS, BLOCK_CRC 
(BUFFERS, R4 

), HDR CRC 

BUFFERY 


V.CRC16, #0, #256, (BUFFER) 
HDR_CRC, CHECKSUM 


#BACKUPS_HDRCRC, (RB) 
#1, QUAL79, 26 

#3, COM_FLAGS, 27$ 
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44(BUFFER), 27$ 


RWSV_AUTODIN, #-1, 8(BCB), (BUFFER) 
CHECRSUM, RO 

BLOCK CRE, RO 

WBACKUP$_BLOCKCRC, (R8) 

BLOCK_CRC, 36(BUFFER) 


(R8Y, 
RWSV_IN_ORGERR, 28$ 
(R8)> ROSV_IN_ORGERR 
RWSV_IN_ORGERR+4 
(R8), 298 


WSV_SEQ_ERRORS 
, #420 


), RWSV_HOLD_LIST 
UT_wAIT? BCB 


BCB), #596 
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al FREE_BUFFER 
RWSV_IN_ORGERR, -(SP) 
RWSV- SAV 
ACRUPS_FATALERR 
RWSV_SEQ_ERRORS, #100 
COM_FLAGS, 37$ 


(eee) Rus HOLD_LIST 
V_IN_ORGERR, =(SP) 


‘ OR 
WSV_HOCD_LIST, 8CB 
RWSV_SEQ_ERRORS 
BCB, RO 


AX-11 Bliss-32 v4.0-7 
BACKUP.SRC JREADSAVE. 833; 


+ 
| 
| 
j 
' 
' 
} 
| 
| 
} 
| 


11 


CALLING SEQUENCE: 
READ_SEQ_BLOCK (READ_AHEAD) 


2s 


Oo 


INPUT PARAMETERS: 
READ_AHEAD: TRUE to enable asynchronous read ahead 


| D 
_ READSAVE Read Save Set 16-Sep-19 :13: AX-11 Bliss-32 V4.0-74 P 1 
¥be-00) READ_SEQ_BLOCK = read a sequenced save set bloc 10-300-1 98 99:33:98 EBACKUP.SRe READSAVE .832;2 Nee 3) 

$88 ZSBTTL *READ_SEQ_BLOCK = read a sequenced save set block’ 

$30 ROUTINE READ_SEQ_BLOCK (READ_AHEAD) = 

4&9 4 !ee 

49 5 ; 

r+ § FUNCTIONAL DESCRIPTION: 

$38 8 This routine reads a save set block and applies sequence number 

49 3 checking and rewrite error recovery. 
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FALSE to read only one block 


Coooooo 2 
PPP PAPAIN 


See eee 
n> 4 SSS SS SRN AS SaNoururn 
PRIPIPOPIPOMOPOMINININININIPINPIPIPININIPII IIIA a at st st st tt kk kk dk 


IMPLICIT INPUTS: 
NONE 


SRLESES 


| 

i QUTPUT PARAMETERS: 
NONE 

' 

i 

a 


060 
061 
10 9 
13 a IMPLICIT OUTPUTS 
8 065 NONE 
14 +6 
15 06 ROUTINE VALUE: 
16 068 BCB address of block read 
17 5 34 
18 0 SIDE EFFECTS: 
19 NONE 
0 
1 - 
5 BEGIN 
5 BUILTIN 
$$ REMQUE ; 
28 LOCAL 
cB : REF BBLOCK, ' BCB of block read 
BUFFER : REF BBLOCK, ' address of data block read 
BLOCK_COUNT, count of blocks read forward 
' 


count of backup blocks seen 


BK_BLOCK_COUNT, 
TM_COUNT; ! count of tape marks crossed 


EXTERNAL ROUTINE 


BISAEUNLSS 


SKIP_RECORD, ! skip tape records 
SKIP_TM, ' skip tape marks 

WAIT, ! wait for 1/0 completion 
FREE _BUFFER; ! free an 1/0 buffer 


! The outer loop handles re-reading a data block after a forward 
retry has been tried and found unsuccessful. 
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BEGIN 


Loop, reading blocks from the input ag If an error occurrs, 

leave the loop for forward aay Keep reading blocks if a sequence 
number inversion occurrs. Note that a block header CRC error cosatty 
fatal. Since the header cannot be trusted, the block must be flush ed. 
Blocks not written by BACKUP are also flushed at this level. 


WHILE TRUE 
DO 
1 BEG 
1 BCB . BLOC K (READ gAieAd. TRUE); 
1 BUFF ER’ EAD ce(ece_B 
1 If .8CB Cece. 10 Seite + SS$_ENDOFFILE 
1 THEN RETURN .6CB; 
1 If .@CBCBCB_STATU $} wee ACKUPS_HDRCRC 
1 AND .BUFFER pean, SUBSYS] EQL BACKUPSK_BACKUP 
1 AND .BUFFERCBBHSL ~ “NUMBER GEQU .RWSV_IR_SEQ 
1 THEN EXITLOOP; 
1 FREE_BUFFER (.8CB); 


If (.6CBLBCB_10 STATUS] AND 
{BUFFER ERTBBASL_NUMBER] EQL .RWSV_IN_SEQ OR .RWSV_IN_SEQ EQL 0)) 


RWSV IN ERRORS | = .RWSV_IN_ERRORS + 1; 
OR NOT jBBLOCR Sei ite SAVE_FABLFABSL_DEVJ, DEV$V_SaDJ 


If an error has occurred, search forward, Limited by the buffer depth 
of the writer, for a rewrite of the block. 


MEUM OO OONOAUNE WN (OOO NOU SW 


SOV 


PEEP EE EF FMA & OB BF FHI PB BBB BEE BE EMI 
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Be 
Bg 
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90 
4 
98 
94 
95 
96 
97 
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99 


40 
41 K B ut NT : 
4g TM” COUNT = 
43 ir -RWSV _LOOKAHEAD EQL 0 THEN RWSV_LOOKAHEAD = 10; 
45 BEGIN 
46 BCB = READ BLOCK (FALSE, TRUE); 
4 BUFF ER = -8c8 a etki UFFER); 
48 F .BCB Brace TUS) 
4 AND BU FFE ER aBhs Sut SuBSYS EQL BACKUPS$K_BACKUP 
30 AND 8 L-NUMBER) EQL .RWSV_IN7SEQ 
THEN R 
600 FREE BU tf ver Rts coi 
601 5 IF acaLBee (B_10_ oe eatus? EQL SS$_ENDOFFILE 
602 54 THE 
‘Sh eS ee ies ee 
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SS SHISARANISSHISTIERISSaNen SS 


i, = .TM_COUNT ¢ 1; 


1h M tOUNT € 
COCK cx 
ees SUBSYS eet tpacrurde ~BACKUP 


AND éBtBee marti =e jpatKurs. HDRCRC 
AND .BUFFERCEBHSL_NUMB ~RWSU_IN_SEQ GEQU .RWSV_LOOKAHEAD; 


! Failed to find a rewrite of the block. Flush out the input wait List, 
! then backspace the tape to the original block, less one for good measure, 
: and retry the read. 


ee 
rol COUNT GEQU nusy _LOOKANEAD 


eres. REMQUE (.INPUT_WAITCOJ, BCB) 


a IF .ocatece: 10. STATUS] EQL sss. ENDOF FILE 
COURT TM_COUNT 


IF "in Moun T EOL 
THEN Bcock” COUNT = .BLOCK_COUNT + 1; 
EREE SUFFER ¢ (.BCB); 


Hy 
8 
84 IF .TM_COUNT NEQ 0 
5 THEN Ris ™™ (=. TM COUNT) 
IF SKIP RECORD (=. BLOCK “COUNT - 2) EQL SS$_ENDOFFILE 
THEN SKIP_TM (1); 
END; ! end of outer loop 
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! End of routine READ_SEQ_BLOCK 


.EXTRN SKIP_RECORD, SKIP_TM 
OFFC 00000 READ_SEQ_BLOCK: 


“WORD Save R2. R3.R4,R5.R6.R7,RB.RI,.RI0.R11 5 2042 
43 9002 MOVAB SK SKIP ail : 
00 MOVL ERUPE HDRCRC, R10 : 
— 0001 MOVAB FREE_BUFFER, RO. F 
3 001 MOVAB RWSV-IN_SEQ, R8 : 
D MOVL #2, TRY : 3 
DD 1$ PUSHL ’ : 2111 
DD PUSHL READ AHEAD ; 
FCEF F 6 CALLS , READ_BLOCK : 
D 06 8 MOVL ; 
D MOVL (BCB), FFER > 211 
0870 . 99 CMP atti sp > 211 
BEQL ; 
D1 0003A CMPL 4(BCB), R10 > 2115 


11 
K = read @ sequenced save set bloc 18-Sep-1984 99:33:98 YexcKuPesne READ SA “B :2 


CALLS #1, FREE BUFFER 
CLRL BLOCK _COONT 


SUARFRas Soe 


oc 1 BEOL 
01 04 8 C (BUFFER), #1 
BNEQ $ 
68 08 A : CMPL (BUFFER), RWSV_IN_SEQ 
z BGEGU 3$ 
4 0 PUSHL ace 
69 01 f CALL fl. FREE_BUFFER 
06 18 ie f BLBC 4 (BCB), 4$ 
07 BEQL $ 
: TSTL RWSV_IN_SEQ 
BEOL 
03 : BLBC ~=E-sSTFRY, «6S 
0003 31 BRW 19$ 
18 «OA INCW RWSV_IN ERRORS 
™ $ 4 g BOVE wotu tore Fi +0 
A BBC ) (ROS, 
40 AO oe 5, 4 y nt) 
4 PUSHL 
3 
AB 
BR 
‘ 
AG 


CLAL 
12 TSTB = RWSV_LOOKAHEAD 
1 BNEQ 5 
12 AB MOVB #10, RWSV_LOOKAHEAD 
DD PUSHL #1 
D4 CLRL. = (SP) 
FC89 cf 8 CALLS if READ_BLOCK 
35 o¢ D MOVL 12(BCB), BUFFER 
oc 18 «AG OED BLBC © 24 (BCB) 
01 04 Az 8} cRPw 4(BUFFER), #1 
a8 08 Ag if CMPL (BUFFER), RWSV_IN_SEQ 
13 BEQL % 
4 oD PUSHL 8CB 
69 01 FB CALLS #1, FREE_BUFFER 
0870 8F 18 Ad 8} CMP g4iBce). #2160 
3 06 INCL §_TM_COUNT 
9 11 BRB 1 
3D TSTL §_TM_COUNT 
02 1 BNEQ = 
D INCL BLOCK_COUNT 
01 06 =A f CMPW 806s-s«@ (BUFFER), #1 
g é BNEQ 
D INCL  BK_BLOCK_COUNT 
08 0 £0 CMPZ7V #0; #8, RWSV_LOOKAHEAD, BK_BLOCK_COUNT 
B9 1A BGTRU 
SA 18 as i CPL 4(BCB), R10 
08 A es C SUBL3 RWSV JN_SEQ, S(BUFFER), RO 
0 0 CMPZ7V #0, BB, RWSV_LOOKAHEAD, RO 
A6 1A BGTRU 
54 FFO4 p OF REMQUE Q]NPUT_WAIT, BCB 
D BVS 15$ 


411 
ADSAVE Read Save Set 16-Sep-19 :13: AX-11 Bliss-32 v4.0-74 Pp 
Yoer004 READ_SEQ_BLOCK = read @ sequenced save set bloc 12-868-1382 99:33:98 YBACKUP.SRe READSAVE 10352 ee 3 
4 9 Pus 8 : 217% 
000090006 90 1 P . CALLS Bf WAIT : é 
F 18 AG a f CMP ¢4(BCB), #2160 : 2177 
DS QOOFA ee ota count : 217 
| U é 
| p FC 13$: Het TM” COUNT : $178 
F BNEG 14 : 
| D INCL BLOCK _COUNT : 
4 DD 148: PUSHL ¢ ; 
69 1 F CALLS #1, FREE_BUFFER : 
| 91 ? BRB 126 : 
| 3 15$: TSTL § TM_COUNT F 
BEQL §«=s«168 : 
7E ce MKEGL TM_COUNT, =(SP) : 
68 iF 19 CALLS #17 SKIP 'T : 
02 Re BG Nees Rupee efsocs tow ; 
000000006 §f oi FB 18 CALLS #1, SKIP_RECORD F 
00000870 &F 9 D1 9 CMPL Rg #2160 : 
6 12 BNEQ 3=sés«a1 78 : 
1 0D PUSHL #1 : 
68 Qi Fe CALLS #1, SKIP_TM : 
02 $ F — 17$ SOBGT Y, 18$ ; 
03 (11 1 BRB $ : 
FeEB 31 3 18S BRW : 
50 4 d0 19$ MOVL CB, RO + 2191 
04 RET 3 


; Routine Size: 314 bytes, Routine Base: CODE + 02E6 


ai 
He 
2185 
2186 
2187 
2097 


a yooh 3 32 23 233 


we 
Oo 


WOOO NAAR WV BOOS RAR OID 


RIPPIN IFIPIFIPIPINIMYAININI/PININIAPINIPIDIAY a a ar rr a a a ed ed ed ed ed ed 


SONERISESRE SESE SS 


4 
5 
38 
$77 $58 
678 9 
679 0 
680 1 
681 ‘ 
68 
68 “ 
es ; 
5 
is 
ne 
690 41 
691 "4 
69 4 
69 wd 
694 45 
eB 
SB 8S 


ate Set 
10N = reposition save set 
ZSBTTL “REPOSITION - ¢ 


11 
Hecbeortgee 90:15:02 yaett aLiega3e v4. 0743 


sition save set’ 


ROUTINE REPOSITION (BLOCK _NEEDED, ADDRESS, CUR_BCB) = 


ee 
' 


FUNCTIONAL DESCRIPTION: 


This routine repositions the input save set to the specified 
sequence number and reads that block. 


CALLING SEQUEN 


BLOCK NE 
ADDRESS: 


IMPLICIT INPUT 
NONE 


IMPLICIT OUTPU 
NONE 
ROUTINE VALUE: 


SIDE EFFECTS: 
NONE 


. 
' 
. 
' 
. 
' 
. 
‘ 
. 
‘ 
. 
] 
. 
' 
. 
1 
. 
' 
. 
§ 
. 
' 
. 
' 
. 
] 
. 
' 
. 
' 
. 
t 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
] 
. 
‘ 
. 
‘ 
. 
] 
. 
] 
. 
] 
. 


REPOSITION 


INPUT PARAMETERS: 
— 
a 


CE: 


OUTPUT PARAMETERS: 
NONE 


TS: 


BEGIN 
BUILTIN 
REMQUE ; 
MAP 
CUR_BCB 
LOCAL 
STATUS, 
BOT, 
RAB 
BLOCR COUNT 
TM COONT, — 
BC 
BUFFER 
EXTERNAL ROUTINE 
FILEERR 


FREE BUF 


Pek, 


: REF BBLOCK; 


: REF BBLOCK, 


: REF BBLOCK, 
: REF BBLOCK; 


“(BLOCK NEEDED, ADDRESS, CUR_BCB) 


D: sequence number of desired block 
dress of RFA or VBN, if file or seq disk, respectively 
CUR_BCB: BCB of last block read 


BCB of desired block 


input BCB arg 


eneral status value 

lag indicating tape backspaced into BOT 
RAB for reading input file 
sequence number cf last block read 
count of records to backspace 
count of EOF marks to backspace 
current BCB 
current 1/0 buffer 


wait for 1/0 completion 
signal file related error 
free an 1/0 buffer 


—————— 


! 

AD Read Save Set 1-5 =| AX-11 Bliss-32 V4.0-74 . 7 
banal REPOSITION = reposition save set ~3e0n} 38% 9: 43: 9 BACKUP’ SRe READSAVE. o33, :2 et" (Z 
4 SKIP_RECORD, ! skip tape records 

SKIP_TM; ! skip tape marks 


: First wait out pending reads, tracking the tape position. 


gurreR. = CUR BCBLBCB BUFFER); 

BLOCK COUNT = =" .BUFFERCBBHSL_NUMBER] - .BLOCK_NEEDED + 1; 
= 

F~.CUR_BCBLACB_10_ STATUS) ,EQL SSS_ENDOFFILE 

HEN TM-COUNT =~.T ey neo 

IF “CUR“BCBLBCB STAT NEQ ech_s_1DLe 

HEN FREE_BUFFER (.CUR_BCB); 


UNTIL REMQUE (.INPUT_WAITCOJ, 8CB) 
BEGIN 
iF Fe BcBtece. 10_ STATUS) EOL SS$_ENDOFF ILE 
THEN COUNT = .TM_COUNT + 1; 
IF MeoUNT £0 L 
THEN BCOCK COUNT = .BLOCK_COUNT + 1; 
nee BUFFER (.8CB); 


Ano 
SSSSSSSSSS 
Fury 


: 
; 
9 


! Now find the first block of the roup by backspacing, fenton. 8 and 
i checkin the sequence number. This may take several tries, since 
we don't know whether there are block rewrites to space over. 


RWSV_IN_SEQ = 0; 

wal ILE TRUE 
BEGIN 
IF NOT .QUALCQUAL_SS_FILE) 
THEN 


BEGIN 
on CRWSV_SAVE_FABCFABSL_DEV], DEV$V_SQD) 


Ses 
nm 


BEGIN 
dt = FALS 


740 IF .TM_COUNT NEQ 0 

741 THEN SRIP_TM (=. 1M_COUNT); 

74 .BLOCK™ COUNT 

243 THEN IF SRIP_RECORD (-.BLOCK_COUNT) EQL SS$_ENDOFFILE 
745 BEGIN 

74 SKIP_TH (1); 

7% BOT = TRUE: 


ELSE 
RWSV_IN_VBN = ..ADDRESS; 


ELSE 
BEGIN 


Be Se Be Ge Se Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Se Ge Ge Se Ge Ge Se Ge Ge Ge Se Se Ge Se Ge Se Se Se Se Ge Ge Ge Se Se Ge Se Ge Se Ge Se Ge Se Se Ge Se Ge Ge Ge 
SSN NNN NSIS 
— ot et wd = 
Wun DH NONE NI OOO NO AP @Obe 
~NNNNN 
WISN HII OOo WHA roe 
BAK BF PNNA AA NAN & BF ANI NIPOPUNINONU WINE I I COR RPUPUPOROPUNUNUPURORUPURURUTD 
_= 
25 
on” 


ARGV SSH NINE WIL OOO VOM O 


= =SSSSSSSsEs 


798 
799 


WN O OONOVES WN “OOF VNOUNE Ty 


NOUS WN —O0O® w 


SEES 


PPAPAAAAMMII 
M—OOONOUS WN O00 


SUSAN BB BS BE AB TVD. DD. DP BSI OP OP III OP OP IIE 


er gente ifcbeoctgpe O0:18:02 


RAB = RWSV_SAVE_FABLFC_ RAB): 
if SBLOCKERUSY-SAVE_F REL? ADSL EV2, DEVSV_NET] 


GIN 
STATUS = SO 1SCONNECT (RAB = .RAB); 
F NOT .STATUS 


BEGIN 
FILE_ERROR (BACKUPS_POSITERR, .RWSV_SAVE_FAB, 
fae cS Sea erect 
RWSV_SAVE_FABCFABSV_S$Q0) = FALSE; 
STATS = sconnect (RAB = *aasdse 


BEGIN 
FILEERROR (BACKUPS, POSITERR. | -RUSV. SAVE FAB, 
-RABCRABSL_STSJ, .RABCRABSL-STVJ); 


ND; 
RABCRABSL _6KT] = .. ADDRESS; 
ELSE 
BEGIN 
CHSMOVE (RABSS_RFA, .ADDRESS, RABCRABSW_RFAJ); 


RABCRABSB_RAC]~= RABSC_RFA 
STATUS = SFIND (RAB = -RAB); 
STATUS 


GIN 
FILE_ERROR (BACKUPS POSERROR sRUSV. SAVE FAB, 
-RABCRABSL_STS), .RABCRABSL~STVJ); 
RETURN (READ_SEQ_BCOCK (FALSE)); 
RABLRABSB_RAC) = RABSC_SEQ; 
END; > 


BCB = READ SEQ BLOCK (FALSE); 
BUFFER = .6CB(BCB_BUFFER); 


= 0 
IF 8cBLBCB_{0_status] EQL SS$_ENDOFFILE 


BEGIN 
TM_COUNT = 1; 
BLOCK COUNT = .BLOCK_COUNT ¢ 1; 
ELSE IF .BUFFERCBBHSL_NUMBER) GEQU .PREV pee 
THEN BLOCK_COUNT = .BCOCK COUNT ¢ .BUFFERCBBHSL_NUMBER) - .PREV_SEQ + 1 
ELSE BLOCK-COUNT = .BUFFER BEHS, NURBER = .BLOCK_NEEDED + 1; 
PREV_SEQ =" .BUFFERCBBHSL_NUMBER); 
IF BUF FERCBBHSL _WURBER) LEQU .BLOCK_NEEDED 
OR .QUALCQUAL s FILE 
OR WOT. -BBLOCK RwSV_SAVE_FABCFABSL_DEV], DEV$v_SaD) 
THEN EXITLOOP; 
FREE_BUFFER (.8CB); 


AX-11 Bliss-32 V4.0-7 
BACKUP. SRC JREADSAVE .B 


DBNOVUEWN—OOOnOufur 
~ 
Wn—O 
= 
“ 
‘<= 
2. 


RPP 3 2 oe 


Se Ge Ge Se Ge Ge Ge Se Ge Ge Ge Gs Ge Ge SH Sees 


11 
REPOSITION = reposition save set WEgeecHO$e SHES WBkeNettNabR l- 28,2 


5 ! We may have spaced to before the block needed. If so, read forward 
! until we get there. If it is really bad, we could skip the one we want 
: and end up farther ahead. C'est la vie. 


N.SEQ = .BLOCK_NEEDED; 
g If PFERCBBHEL NUMBERS LSSU .BLOCK_NEEDED 
7 BEGIN 
7% FREE_BUFFER (.8CB); 
75 BCB = READ_SEQ_BLOCK (TRUE); 
f END; 
78 2 .6CB 
79 END; ! End of routine REPOSITION 
.EXTRN SYSSDISCONNECT, SYSSCONNECT 
@EXTRN SYSSFIND 
OFFC 00000 REPOSITION: 
~ WORD Save R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 
5 04 C3 90002 SUBL2 #4, SP 
5 0C AC 00 0000 MOVL CUR BCB, RO 
56 0€¢ Ad DO 00009 MOVL 12(RO), BUFFER 
7E 01 ce 00000 MNEG 1 v_SEQ 
58 08 A6 04 ac C3 00010 SUBL3 BLOCK_NEEDED, 8(BUFFER), R&S 
3 D6 00016 INCL BLOCK COUNT 
D4 00018 CLRL §-TM_COONT 
0870 = &F 18 AO B61 OOO1A CMPW =s-s-24 TRO), #2160 
0¢ 12 000 9 BNEQ «i$ 
D6 000 INCL  TM_COUNT 
OA AQ 95 00024 1$: TSTB ~—-: 10 TRO) 
1 900 7 EQL 4 
0 Dd 000 PUSHL RO 
000000006 00 01 FB 000 a8: CALLS #1, FREE_BUFFER 
5A 00000000" FF OF 00032 3$: REMQUE @INPUT_WAIT, BCB 
1D 1D 000 BVS 6$ 
5A DD 000 PUSHL ®8CB 
000000006 90 01 FB 000 CALLS #1, WAIT 
0870 + 8F 18 AA 8} 044 CMPW 24 (cB), #2160 
j O4A BNEQ 4 
D O4¢ INCL _TM_COUNT 
7 ' O04E 4$: TSTL | TM~COUNT 
: 005 BNEO 
D 3 INCL § BLOCK_COUNT 
A DD 5$: PUSHL  ®8(B 
D3 (11 36 BRB $ 
00000000' EF D4 $$: CLRL RWSV_IN SEQ 
50 00000000" EF 09 0055 $: MOVL SV"SAVE FAB, RO 
44 00000000" EF 3 E 6 BBS #3, QUAL¢TS, 11$ 
35 40 AO E1 $ BBC #5. 64(RO), 9$ 
8 dé f CLRL —_:«&BO 


TSTL —- TM_COUNT 


ent 


"11 
ADSAVE Read Save Set 16-Sep-1 :13: AX-11 Bliss-32 V4.0-74 
Hee REPOSITION = reposition save set 1 ~3007 1383 90:13:92 YBACKUP SRE aba save 108552 
13 0007 BEQL «=s«8S$ 
connoos. 55 CaS BER Fg. gts 
: p 55 8$: TSTL BLOCK_COONT 
7 8 ¢ She GL 8 Sek COUNT, =(SP) 
900000006 06 1 fs CALLS a1. skip RECORD 
F 50 : 30 CMPL «=soRO, #2160 
16 12 0009 NEG 108 
01 0D 00099 PUSHL #1 
000000006 00 1 FB 000 CALLS #1, SKIP_TM 
B 1 p A MOVL #1. BOT 
C A BRB 14 
00000000" EF 08 BC p0 Oa? 9: MOVL SADDRESS, RWSV_IN_VBN 
59 00000000" EF 00000050 8F C1 00081 11$: ADDL3 #80, RWSV SAVE FAB, RAB 
63 41 AO 5 £1 000BD BBC #5, 65(ROJ, 158 
9 DD 000C2 PUSHL RAB 
000000006 00 1 FB 000C4 CALLS #1, SYSSDISCONNECT 
Ag 0 pO 000CB MOVL RO. STAT 
1 046 A E OOCF BLBS status, 12$ 
7E 08 ad 7D 0003 MOva (RAB), =(SP) 
00000000" EF oD 000D PUSHL RWSV_SAV 
000000006 8F 0D 9000 PUSHL #BACRUP$_POSITERR 
000000006 00 04 FB 000€E CALLS #4, FIL OR 
50 00000000" EF : OOEA 12$: MOVL RuSV_SAVE FAB, RO 
04 Ad 40 8F 8A OO0F1 BICB2 #64,~4(ROY 
9 DD O00F PUSHL RAB 
000000006 00 1 FB OO0F CALLS #1, SYSSCONNECT 
06 =A 0 DO O00F MOVL 0; STATU 
1 04 AE 8 00103 BLBS STATUS, 13$ 
7E 08 a9 7D 00107 MOVa (RAB), =(SP) 
00000000" EF DD 0010B PUSHL RWSV_SAVE FAB 
000000006 SF DD 00111 PUSHL #BACRUPS_POSITERR 
000000006 00 04 FB 0117 CALLS #4, FILE~ERROR 
38 AD 08 BC D OO1ig 13$:  MOVL $@ADDRESS> 56(RAB) 
D 1100123 14$: BRB 17$ 
10 ag 08 Bc 0 8 00125 15$:  MOoVvc3 #6, @ADDRESS, 16(RAB) 
1E ad 02 90 4) B MOVE #2. 30(RAB) 
59 DD 0012F PUSHL R 
000000006 00 1 FB 00131 CALLS #1, SYSSFIND 
04 A 0 09 01 MOVL 0, STATU 
1F 04 AE E 013¢ BLBS status, 16$ 
7E 08 ad 2D 0140 MOva (RAB), =(SP) 
00000000" EF DD 00144 PUSHL RWSV_SAVE FA 
000000006  8F DD 0014A PUSHL #BACRUPS$_POSERROR 
000000006 00 4 FB 001 0 CALLS #4, FILETERR 
—E D4 001 CLRL. 0s = §P 
FD68 CF 01 FB 00159 CALLS #1, READ_SEQ_BLOCK 
04 15€ RET 
1€ Ad 946 0015F 168: CLRB = 30(RAB) 
7E 04 00162 17$: CLRL =(SP) 
FDSD =sCF 1 FB 00164 CALLS #1, READ_SEQ_BLOCK 
A 0 DO 00169 MOVL 
6 Oc AA D 1 MOVL 12(BCB), BUFFER 
57 04 001 CLRL UN 
0870 «BF 18 AA Bi 0017 CMPW ©. 24 TBCB),, #2160 


Fe RR BRANT rent age eee eae Weel Ree & gy ee 


ADSAVE Read Save Set 16-Sep-1984 00:13: AX-11 Bliss-32 V4.0-74 R 31 
Bie REPOSITION = reposition save set 1 =3e87 1382 90:13:98 YBACKUP SRE READSAVE .832;2 — (4) 
7 12 00178 BNEQ «18S : 
57 o ig 17A MOVL } T™. COUNT + 2349 
8 06 120 INCL LOck COUNT + 2350. 
iA 17F BRB : $ 
KE 08 AG p1 1 18$: CPL (BUFFER), PREV_SEQ + 235 
50 58 08 A6 C1 001 ; ADDL 8(BUFFER), BLOCK COUNT, RO + 2353 
5 é i C SuBL PREV_SEQ, R : 
50 08 A 06 =A ‘ 0191 19$:  SUBL3 BLOCK NEEDED, 8(BUFFER), RO : 2354) 
5 01 A 0197 gos: MOVAB 1(RO)> BLOC T ; 
6E 08 A6 D 0198 1$: MOVL (BUFFER), PREV_SEQ ; 3355 
04 AC A6 D1 0019F CMPL (BUFFER), BLOCR_NEEDED + 2357, 
‘ 1B OO1A4 BLEGU : | 
1B 00000000° EF EO 00146 BS #3, QUAL4+15, 22$ : 2358. 
0 00000000" EF D0 OIAE MOVL RWSV_SAVE_FAB, RO + 2359) 
OF 40 95 E1 0018 BBC #5, B4(ROY, 228 : | 
B €8 OO1BA BLBS BOT, 22$ ; 3360 
SA DD 0018p PUSHL CB + 2362. 
000000006 00 01 FB 001BF CALLS #1, FREE_BUFFER : 
FE9S 31 001C6 BRW ; 2281) 
00000000' EF 04 AC DO 001C9 22$:  MOVL §BLOCK_NEEDED, RWSV_IN SEQ : 2370) 
04 AC 08 *¢ D1 00101 CMPL S (SUFFER), BLOCK _NEEDED : 2371. 
13 1E 00106 BGEGU 23$ ; 
5A DD 00108 PUSHL CB + 2374 
000000006 00 01 FB OO1DA CALLS #1, FREE_BUFFER : | 
01 DD 0011 PUSHL #1 : 2375) 
FCDE CF 01 FB OO1E3 CALLS #1, READ_SEQ_BLOCK : | 
SA 50 DO 00168 MOVL RO. BCB : | 
50 SA DO OO1EB 23$: MOVL CB, RO : 2379. 
04 OO1EE RET ; | 


; Routine Size: 495 bytes, | Routine Base: CODE + 0420 


FRELEESEL AS 
DONA VIESWN OW” Vlwn— 
POPOPORORONONONoNOPoTNoTPonofnonononopnornorny 


94 
95 

9 

9 
98 
eS 
HOE 
te 
854 404 
855 405 
856 406 
857 407 
858 408 
859 ret 
860 410 
861 2411 
B66 seis 

86 41 
864 2414 
865 2415 
866 sei8 

867 41 
868 418 
869 419 
870 $¢ 0 
$7) 421 
% ra) § 
aan 
74 424 
875 425 
876 426 
877 427 
878 428 
879 429 
880 430 
881 431 
ess 

8 4 
eee 434 
5 435 
886 436 


vou~001™ KORCIZE 


; ve Set 
E = apply KOR recovery 
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1$-Se0-1964 00:15:92 yAKet! BLisg=32 4.00763 


ZSBTTL “Home ite tor bre” XOR pocovery a) 


ROUTINE XORCI K_NEEDED, CUR 


144 


i 
FUNCTIONAL DESCRIPTION: 


This routine applies XOR recovery to recover the indicated 

lost block. This is done by Sorkepec ine to the start of the — 
current group and XORing all blocks (except the one in question) 
up through the next XOR block. 


CALLING SEQUENCE: 
XORCIZE (BLOCK_NEEDED, CUR_BCB) 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i INPUT PARAMETERS: 
: BLOCK NEEDED: sequence number of block to be recovered 
CUR_BCB: BCB of block just read 

i IMPLICIT INPUTS: 

NONE 

i OUTPUT PARAMETERS: 

: NONE 

i IMPLICIT OUTPUTS: 

NONE 

i ROUTINE VALUE: 

: BCB of recovered block 

i SIDE EFFECTS: 

} NONE 

ie 


BEGIN 
BUILTIN 
INSQUE; 
MAP 
CUR_8CB : REF BBLOCK; ! input BCB arg 


LOCAL 
: REF BBLOCK, ! RAB for reading input file 
SAVE_ADDR : BBLOCK CRABSS_RFAJ, ! saved file address 
SAVE_ERRORS, ' save soft error count 
Pl, ! XOR buffer pointer 
P2 XOR buffer pointer 


1 
BcB : REF BBLOCK, / BCB of current buffer 
xOR_BCB : REF BBLOCK, ' BCB of XOR buffer 
BUFFER : REF BBLOCK; ! current 1/0 buffer 
EXTERNAL ROUTINE 
FREE BUFFER; ! free an 1/0 buffer 


see 
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i 
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i 
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a 
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f 
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& 
4 
4 
& 


: Save the current position if the input is a file or seq disk. 


ERRORS; 
GROUP Tf EQL 0 THEN RETURN .CUR_BCB; 
AVE_ADDR =".CUR ate: CB_BLOCKNUM); 


SAVE ERRORS = .RWSV 14 


RAB = RWSV_SAVE_FABLFC RAB); 
CHSMOVE (RABSS_RFA, RABCRABSW_RFAJ, SAVE_ADDR); 


! Special case the situation in which the block lost is the first 
: of an XOR group, since no special repositioning is necessary. 


BUFFER = .CUR BCBLBCB_BUFFERI; 
IF PeOck NEEDED EQL TRWSV_IN_XOR_SEQ + 1 


BEGIN 
RWSV_IN SEQ = .BLOCK_ NEEDED + 1; 
IF .BUFFERLESHEL NUMBER} EQL .BLOCK_NEEDED 


BEGIN 
FREE_BUFFER (.CUR_BCB); 
pce = READ_SEQ_BLOCK (TRUE); 
ELSE IF .BUFFERCBBHSL_NUMBER] EQL .RWSV_IN_SEQ 
THEN BCB = .CUR_BCB 
ELse RETURN .CUR_8CB; 


BCB = REPOSITION (.RWSV_IN_XOR_SEQ + 1, RWSV_IN_XOR_RFA, .CUR_BCB); 
BUFFER = .BCBCBCB_BUFFER); 
: Accumulate the blocks in an XOR pada Pandy « doy, the one we are 
! after. Note that we allow for a group size one larger than specified, 
to accomodate some boundary conditions on sequential disk. 
i 
i 


Temporarily decrement the buffer count to account for the XOR buffer 
we are sitting on, to prevent the read-ahead from eating too many buffers. 


COM_BUFF_COUNT = .COM_BUFF_COUNT = 1; 

XOR-BCB = 0; 

DECR J FROM MINU (.RWSV_IN_GROUP_SIZE+1, 100) TO 1 
BEGIN . 

IF .XOR_BCB NEQ 0 

THEN 


BEGIN 
BCB = READ. SEQ BLOCK (TRUE); 
BUFFER = -6CBCBCB_BUFFER); 


- apply KOR recovery 14-Sep-1984 99:33:98 YEACKUP SRE READSAVE 105 i2 


r--- 


| 
| 
! 
| 
| 


! 
' 
list, so it will be read next. Return the recovered block. 


MEPL 


SOON UE W oO 


D 12 
ADSAVE Read Save Set 16-Sep-1984 :13: 

Rie NoReLie - apply KOR recovery a at 1 90:33:98 
s 946 494 & If NOT CBCBCB_STATUS) 

; 945 495 4 OR .BU FfERCBD net NUMBER] GTRU .RWSV_IN_SEQ 

: | t38 4 THEN EXITLOOP 

: 3 rh ¢ F .XOR_BCB EQL 0 

: rk 198 4 yt : 

; 950 4 4 XOR_BCB = .BCB 

: 951 4 ELSE 

ay @ é ¢ BEGIN 

3 32 Pl = .BUFFER + BBHSK_C 

; 956 5 P2 = .xXOR_BCB(BCB BUPFERI e BHSK_ COMMON 

; 935 $e DECR J FROM (.8CBCBCB_ eR 5 pause ~COMMONS /16 TO 1 
; $37 208 & TSE pe XOR ..P1 

Py i = os ee s 

; 959 209 6 Pl = .P1 + 4; 

; 960 510 6 P2 = .P2 + 4; 

: 961 511 6 -P2 = ..P2 KOR ..P1; 

3 308 21¢ 6 Pl = .P1 + 4; 

; % 513 6 P2 = .P2 + 4; 

: 9646 514 6 -P2 = ..P2 KOR ..P1; 

2 ee ribs 

Z Ss, + &G; 

3 1] 219 6 .P2 = ..P2 XOR ..P1; 

; 968 318 6 Pl = .P1 + 4; 

; 969 51 g P2 = .P2 + 4; 

; 970 520 END; 

8 4a! 2 1 ? END; 

3 ore 5 § 4 a IN 7 : te ee pret: + 1; 

3 44 ; : : cos Rust! Q EOL hates K REED 

3; 976 5 § 4 If .BU Rust JRSEO = APPLIC) “tor SEO * i _XORBLOCK 

3: 977 5 4 aa exit OOP 0;~ 

; 978 5 § ‘ IF .8CB NEQ .XOR_BCB THEN FREE_BUFFER (.BCB); 

i 986 $8) § 

; 98 5 § ! If KOR recovery was not successful, reposition to the desired block 
3 oS ; : and return it. 

3 38S 535 

; aoe 5 THEN 

3 + 44 2 BEGIN 

; 9 If .XOR_BCB NEQ 0 

3; 989 53 THEN FREE BUFFER (.xXOR once 

: 990 5 BCB = REPOSITION (.BLOCK néEDeD. SAVE_ADDR, .BCB); 
3; 991 5 RWSV_IN_ERRORS = .SAVE_ERROR 

7; 9 5 BuFF_COUNT = .COM_BuUFF oCOUNT + 1; 

; 99 ; cB 

3 5 

3 5 

3 5 

: 5 


AX-11 Bliss-32 V4.0-76 
BACKUP. SRC JREADSAVE .B32; 


i | 


! If KOR recovery was successful, reposition to the block following 
! the one recovered, and Link it into the FRONT of the input wait 


--- -——- - _ —— —$—$——$ 


| 12 
| READSAVE ad e Set 1-5 -1984 :13: AX-11 Bliss-32 v4.0-74 c 5 
“voee00! ORCIZE = apply KOR recovery Ve-sepaloee $1:93:56  EBAckuPeSeeineasave .039;2 at § 
| 1 1 ELSE . 
| § j tf BUF FERCBBNSL NUMBER) NEQ -BLOCK NEEDED + 1 

4 HEN BCB = REPOSITION (BLOCK LN EDED + 1, SAVE_ADDR, .8CB); 

5 RWSV_IN_SEQ = .BLOCK_NEEDED; 

§ a ace Q .xOR_BCB 


4 Bcetece STATE) = BCB_S_READ; 
INSQUE T.8CB, INPUT GATT E035 ; 
1 


RWSV_IN ERRORS = .SAVE_ERRORS - 


1; 
RWSV-IN-XORUSE = .RWSV-IN XORUSE + 1; 
COM_BuFF_COUNT = ,COM_BuFF_C +1; 
BUFFER =~.xOR_BCB(BCB-BUFFER): 

BUFFER BBHS_APPL IC = BACKUPS$K_DATABLOCK; 
BUF FERCB SL-NUMBER] = .BLOCK_NEEDED; 


i ak a hh 
feleleleleleolelala} 
pee ee ee be be 
—OOONOUE WO w 
ROPRIPIPIPIPIPIPININININININININININIFIND x 
SHUSAF 


END; ! End of routine XORCIZE 


| 
OF 
8 4444 G 00 


FC 90009 XORCIZE:.WORD Save R2,R3,R4,R5,R6,R7,RB,RI,R10,R11 : 2381 
00 9E 00002 MOVAB FREE_BUFFER, R11 : 
3A 00000000' i 9 a0 nOVA RSV IN_SEQ. R10 : 
5 18 AA SC MOVZWL RWSV_IN_ERRORS, SAVE_ERRORS > 2440. 
14 AA 05 0 TSTL  RWSVTIN~GROUP_SIZE 3 2441 
05 iF 0 BNEG =s«d1$ : 
50 08 AC pO MOVL CUR_BCB, RO ; 
56 08 ac 00 MOVL  CUR_BCB, R6 > 2642. 
bE 14 A6 dO MOVL  20(R6), SAVE _ADDR ; 
OE 57 AA 03 €1 C #3, QUAL+1 3 2443 
50 F4 AA 00000050 8F cf ADDL3 #86, RWSV_SAVE_FAB, RAB + 2446 
6E 10 Ad 06 28 MOVC3 #6, °16(RAB), SAVE_ADDR : 2647 | 
52 OC Ab 09 12(R6), BUFFER > 2454 
58 06 ac D MOVL BLOCK NEEDED, R8 > 2455 
50 08 aA Ht ci ALS : ‘ ROSV_IN_XOR_SEQ, RO 3 
. * BNEQ 3 
A 01 A 9 MOVAB 1(R8), RWSV JN_Sea > 2458 
& 08 A p CMPL g(BUFFER), R + 2459 
— 12 BNEQ $ : 
6 0D PUSHL R6 > 2462 
68 1 FB CALLS #1, FREE_BUFFER F 
1 DD PUSHL > 2463 
FC73—sCF O1 FB CALLS a. READ_SEQ_BLOCK ; 
6A 08 As p} cMPL BCourreR), RWSV_IN_SEQ > 2465 
55 56 06 MOVL 6, BCB > 2466 
1 1 BRB 7$ 3 


wn ee 
' 


aoprene naa 
Read 


| EAmgave = Rog 


50 


54 


ave Set 
E = apply KOR recovery 


FD90 


v4 
00000064 


FC25 


oc 


50 


i 


$7 
ar 


57 


56 00 
56 
OC AA 4 


do 
a HR 
08 A 1 
4 j 
; 
1 
20 =A 
2 
08 A 
f 
5 


COIN QOOMON SF WINS MUMS — SMA 


A> ?§ PN MUNN OOO KMOONMNO 


ae Se, a 9 23999 =D NA MMR.|FANAO =soc¥Kex2-3 -o-omoo™7 


DOW 


1b-Sep-1 
14-Sep-1 


Be 19:58:56 


AX-11 Bliss-32 ft gt | 
BACKUP. SRC JREADSAVE .832;2 


R6 
RWSV_IN_XOR_RFA 
» REPOSITION 
ace 
(eCB), BUFFER 
Om_BuF F_COUNT 


“i, READ_SEQ_BLOCK 
12(BCB), BUFFER 

(BCB). 17$ 
BUFFER), RWSV_IN_SEQ 
_BCB 


XOR_BCB 


4 
( 
? 
0 


Bw x - On —-DVe 
No 


R 
4 
8, 
a 

(R2), PI 

2, 12(XOR_BCB), P2 
aCe) RO 
. RO 
6. RO 

$ 
1 
1 
1 
1 


nnn BBO 
> VVVVIA —WewNsln— 


< —we ww wv 


RWSV_IN_SEQ 


On One ne 
APADMNOU 


cee XOR_BCB 


Bc 
#1, FREE_BUFFER 
xOr ecb 

18$ 


XOR_8CB 
11 FREE_BUFFER 


5 


3 


“READSA Read Save Set i: “1 AX-11 Bliss-32 v4.0-7%4 Pp ? 
voerbot® KORCI é. = apply KOR recovery 300-138 99: 43 9 BACKUP. SRC aeapsave 03952 vines Ay 
| oc Ae SF Sorte °** Busine Save_aoor hem 
DC PUSHL RB” ; 
FCEB cf i} CALL 3, REPOSITION 3 
18 D6 m0 SAVE ERRORS, RWSV_IN_ERRORS : 3541 
. Be 8 an = 
50 01 00132 198:  MovAs 1(RB), RO > 2553 
8 A it CMPL (BUFFER), RO F 
o fi PUSKAS SAVE. ADDR ; come 
+ - : 
00 Pus R : 
FCC9. CCF fi CALL a, REPOSITION : 
5 MOVL RO. BCB ; 
a a cae 8 
BEQL ine : 
OA AS 1 MOVE 10(8C¢B) + 2559 
FF A 65 INSQYE (Bis) INPUT _WAIT + 2560 
18 AA 9 1 21$:  S$uBW Sive ERRORS, RWSV_IN_ERRORS + 256 
6 oe ne hove tito On BCR) sturreR ; 36 
A 01 MO : 25 
88 i 04 AC MOVE BL bck ice REEDED 8 (BUFFER) : $67 
oocs CA 228: ince COMTBUFE COUNT i sc2 


; Routine Size: 377 bytes, Routine Base: CODE + O60F 


a . 


--—— 


Ooooceooe 


RRARARARAARRERERERERE 
MEUM —OOONOUS WHO 


ee ee ee ee a ee em a ee ee ed ed ed od od dd wd 


SSSSSslSss 
CONG VEwN 0 0 


H 12 
MATCH SSNAME = match save set name string —-JeaSepa19be 44:48:56 PBACKUPCSRETREADSAUE 109552 


f 1 ZSBTTL "MATCH_SS = match save set name string’ 
f } ROUTINE MATCH_SS (LABEL _BUFFER) = 
Ri 
f FUNCTIONAL DESCRIPTION: 
79 «15 This routine determines whether the specified tape header Label 
: : } matches the save set file name in COM_SSNAME. 
4 1 | CALLING SEQUENCE: 
; MATCH _SSNAME (LABEL BUFFER) 
5 1 1 INPUT PARAMETERS: 
2 ; LABEL _BUFFER: buffer containing tape header Label 
2 8 1! IMPLICIT INPUTS: 
9 1! NONE 
590 1! 
591 1 ! OUTPUT PARAMETERS: 
236 1! NONE 
593 1! 
594 1 ! IMPLICIT OUTPUTS: 
595 ; NONE 
29 1 ' ROUTINE VALUE: 
598 1! TRUE if Label matches 
599 1! FALSE if not 
600 1! 
601 1 ! SIDE EFFECTS: 
60 1! NONE 
603 1! 
604 1 teu 
605 1 
606 BEGIN 
607 
se ge 
2iy LABEL _BUFFER : REF BBLOCK; ! buffer containing tape label 
oie LINKAGE 
61 L_MATCH_NAME = JSB (REGISTER = 4, REGISTER = ; 
614 REGISTER = 2 REGISTER = 35 
615 NOPRESERVE (2,3,4,5); 
oi9 LOCAL : 
oi8 LABEL _LENGTH; ! Length of the HDR1 file identifier 
620 EXTERNAL ROUTINE 
: 1 FMGSMATCH_NAME =: L_MATCH_NAME; ! Compare names with wildcards 
6 g ! The apes SY tog file name matches (1) if it is mull or (2) if it matches 
624 ! exactly or (5) if the specified file name has a trailing dot and the tape 
: 5 } file name has a null type (with no dot). 
6 $ : 
628 If 


Ee mame sana 


SESFSISASSSELEESELES 


me ee as os = “a — 2 ss 2 a — 5 —4 ss is - — -4 2 2 


td td 
LESFALLS 


12 
Read Save Set 18-5 “19 :13: AX-11 Bliss- 4.0-74 
MA H_ SNARE = match save set name string 1 me at 99:33:98 YeacKuP’ sre ReaD eave 03352 Sat a 


-COM_SSNAMECDSCSW_LENGTH) EQL 0 


(, COM_SSNAMECDSCSW_LENGTH) EQL 1 
AND .VECTORL.COM_S COSCSA_POINTER], 0; ,BYTE] EQ. *.*) 
THEN RETURN TRUE; 


LABEL LENGTH = HD1$S FILEI9; 

WHILE”. VECTORCLABEL BUFFERCHDIST_FILEID], .LABEL_LENGTH-1; ,BYTE) EQ. %C° ° 
AND .LABEL LENGTH GTR 0 

DO LABEL_LENGTH = .LABEL_LENGTH = 1; 


FAEAAAAAO 


— 
FALUN OODNONEWVIOSRAOUEANNOD O 


IF 
gf FMGSMATCH_NAME (. COM_SSNAME(DSC$W_LENGTH) 
64 . COM~SSNAME LDSCSA_POINTER, 
64 -LABEL_LENGTH, 
os , LABEL _BuF FERCHD1S$T_FILEID)) 
6% ,VECTORC.COM_SSNAMELDSCSA_POINTER, .COM_SSNAMECDSC$W_LENGTHJ-1; ,BYTEJ EQL °.' 
64 FMGSMATCH_NAME (. COM_SSNAMECDSC$W_LENGTHJ-1, 
64 . COM SSNAME [DSCSA_POINTERJ, 
65 -LABEL_LENGTH, 
$3 ; LABEL _SUFFERCHD1$T_FILEIDI) 
65 THEN TRUE 
$3 ELSE FALSE 
65 END; ! End of routine MATCH_SSNAME 


-EXTRN FMGSMATCH_NAME 
OFFC 00000 MATCH. SSNAME ; 


.WORD Save R2,R3.R4,R5,R6,R7,R8,R9,R10,R11 : 2573 
59 000000006 00 9€ MOVAB FMGSMATCH NAME, RO : 
58 00000000' EF 9E MOVAB _SSNAME+4, RB ; 

54 FC AB MOVZWL COM~SSNAME, R4 ; 2629 
4 BEQL = 4&$ ; 

01 4 a CMPW ORG, #1 + 2631 
38 . BNEQ 3 

2€ 00 88 9 C @COM_SSNAME+4, #46 + 2632 
49 1 BEQL «6s 4$ ; 

? 11D 1$ MOVL #17, LABEL_LENGTH ; 3635 

0 4 aC MOVL  LABEL_BUFFER, RO > 26 

6 A MOVAB « 4&(R : 
20 FF A746 ? 2s: CAPR -1(LABEL_LENGTH)(R6), #32 F 

; D TSTL ABEL_LENGTH > 2637 
1 BLEQ 3 

7 0. DECL LABEL _LENGTH > 2638 
-1 (11 BRB $ ; 

3 36 D 3$: MOVL 6, R3 > 2644 
: D MOVL LABEL_LENGTH, R? : 
p MOVL COM SSNAME+4. R : 
g } JSB SMATCH_ c 
21 O€ BiLBS = -RO, 4 : 


- 
| vou~00)" 
| 


; Routine Size: 


Read Save Se 


t 
MATCH _SSNAME = match save set name string 


113 bytes, 


5) 
2e 
4 


i 


50 


Routine Base: 


FC i 
6 

FF OA 
1 

FC 
56 
: 
50 
01 
50 

CODE + 0788 


mT O TOW OOw 


COOoOoONoON ON 


o 


04 


hy - 
1b-teo- 


1986 11:58:56 


AX-11 Bliss-32 el git 
BACKUP. SRC JREADSAVE .832;2 


COM_SSNAME, RO 
COM” SSNAME+4, RO 
=1(RO), #46 
COM_SSNAME, R4 
RG 

R6, R3 
LABEL_LENGTH, R? 
COM_SSNAME+4, R 
FMGSMATCH_NAME 
RO, 5$ 

#i, RO 

RO 


Page 40 


(6) 
2646 


2648 
2651 


2640 


2656 


WE ROS Ee a a ae 


voeetott inl >A SAVED isk - initialize sequential disk sav 1§-$ep-198 99: 43 9 BACKUPe SRE ReADSAve .833:2 set 3 | 


7 ZSBTTL ‘INIT _SAVE_DISK = initialize s quential disk sa e set’ 
ROUTINE INITTSAVEDISK (CONTINUE, FILE.1D) : NOVALUE =. 


Oo 


‘oe 
i 
p FUNCT CCN. DESCRIPTION: 


neg sa opens the save set file on an offline save 


i CALLING SEQUENCE : 
INIT SAVE_DISK (CONTINUE) 


INPUT ee NY 
CONTINUE: TRUE to open next file segment 


FA ALSE. to indicate caress oper 
FILE_ID: sadeane of file ID if CONTI is true 
i IMPLICIT INPUTS: 
NONE 


SELESHRIES 5 


RRRARAL S 
SANS 
NOUSWN Oo 


AAO 


output PARAMETERS: 
NONE 


Bees 


IMPLICIT OUTPUTS: 
NONE 


o 
ae 


t ROUTINE VALUE : 
NONE 


{ SIDE EFFECTS: 
NONE 


Ss 
233s 


a ee ee 


Be Se Oe Os Oe Ge Se Se Se Se Se Ge Be Se Ge Se Se Se Ge Ge Ge Ge Ge Se Ge Ge Se Se Se Se Ge Ge Ge Se Ge Se Se Se Se Se Se Ge Ge Se Ge Ge Se Ss Se Se Ge Ge Se Se Ge Ge es 
ee a ee a ee ae ee ee ee ee ee a ed ed ed ed od od 8d od 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
69 ) BEGIN 


9 
694 BUILTIN 
332 ROT; 
$9? 5 MAP 
v4 4 FILE_ID : REF BBLOCK; ! continuation file ID arg 
LOCAL 
1 FAB : REF BBLOCK, ! pointer to save set FAB 
70 NAM : REF BBLOCK, i pointer to NAM block 
70 STATUS i general status velue 
704 10_STATUS : VECTOR [4, WORD]°'' 1/0 status block 
705 FIB : BBLOCK CF IBSC -LENGTH ! FIB to access file 
06 FIB_DESC : VECTOR | des criptor f for above 
7 RECATIR : BBLOCK CFATSC -tEN Norn. lveceré ottrttutes better 
re SEG_NUMBER : WORD te ent number 
4 ATT_CONTROL : BBLOCK (20); attribute control list 
11 BIND 
1 ATT_CONTROL = ATT_CONTROL+00 : BBLOCK, 
1 ATT CONTROL = ATT “CON TROL*08 : BBLOCK, 


ee Ee Se ee ae ee a NE ee eT ea 


ern - OO 


| READSA Read Save 18-56 p-19 :13: AX-11 Bliss-32 v4.0 p 2 
ye Int? Save pb! Disk = initialize sequential disk sav 1 =300n 1383 99:33:98 BACKUP. SRC JREADSAVE. “i i2 hee F 
: 1166 a ATTR_END = ATT_CONTROL*16; 

; 1168 1g EXTERNAL ROUTINE 

3 11g 71 READY_DIS ' ready disk for input 
311 : 71 INIT BIR SCAN, i init alize directory scan 
: 117 71 IND“NEXT i find a f Le 

; 117 7 FREE-DIR_OATA, i clean up file scan context 
: 110? f FILE-ERROR; ! signal file related error 
: 1175 7 

: 117 726 2! Set up the input disk. 

: 77 = 1s — 

: 1179 , $ FAB = .RWSV SAVE fA8: 

+ 1180 7 8 FABLE ABSL STS si 

: " 1 , FABLE AB FAB Fast has, = ‘gia, IN, CHAN; 

. = 

: 11 731 If NOT .C 

: 11 7 é THEN 

+ 1185 7 BEGIN 

3 1338 7 READY_DISK (0); 

3; 118 735 : 

3 H+ 4 4 } Use the file scan logic to find the file. 

: 1190 738 : 

: 1191 739 INIT a a ( ad 

: 1198 741 “ 

: 1194 74 gente | -QUALCQUAL_INPU_LIST], QUAL_DEV_DESC]. 

; 1195 243 BBLOCK ~QUALCQUAL"INPU“LISTJ, QUAL~EXP~DESCJ. 

: 1199 745 INPUT LMTLCMTL_RVN_BASE), 

: 1199 by STATUS of iN AN 

4 = 

+ 1200 748 IF NOT . TATUS. SHEN Cite ERROR (BACKUPS_OPENIN¢STSSK_SEVERE, .FAB, SS$_NOSUCHF ILE); 
; 130 749 FREE atte sDATA QO; 

: : 08 Ley : Set up the FIB and issue the Q10 to open the file. 

: 1205 53g 

+ 1206 754 CHSFILL (0, FIBSC LENGTH. F 1B); 

3 1207 755 FIBCFIGSW_FID_NUM] = .NAMCNAMSU -f 1D NUR}: 

> 1208 736 FIBCFIBSW-FID-SEQ) = .NAM NAR $U7F I1D-SEQ); 

: 1 09 137 at FIBSW-FID-RVNJ = .NAMCNAMSW"FID"RVNI: 

: 1211 759 

3 : is 760 : A file continuation is simply opened by file ID. 
SHAS Fas 

: 1 16 764 BEGIN 

> 121 765 If . INPUT MTLCMTL_SEQ_DISK) 

: 1 18 766 THEN READY_DISK (0); 

> 121 76 CH FALL (07 FIBSC LENGTH, FIB); 

> 1220 76 FIBCEIBSW_FID_NUM] = .FILE_IDCF10$W_NUM); 

+ 1221 7 FIBLFIBSW"FID"SEQ) = .FILE-IOCF I10$W~SEQ); 

: 1222 770 FIBCFIBSW"FID-RVN) = .FILE-IOCFIDSW~RVN); 


m 12 

ADSAVE Read Save Set 16-Sep-19 :13: AX-11 Bliss-32 V4.0-7 p 43 
voe-00! INT SAVE.DIsk - initialize sequential disk sav 1228681382 99:33:98 BACKUP. SRCJREADSAVE. b3 i2 st (7) 
3 1223 77 FIBCFIBSL_EXVBN) = .RWSV_IN_VBN; 
He a 
31 77 FI8_DESCLO) = FIBSC_LENGTH; 
; i $ of FiBcpeStt ia = F1B; 
31 5 +8 ATT_CONTROLOLATRSW_SIZE) = ATRSS_RECAT 
: 1 78 ATTICONTROLOCATRSW-TYPE) = ATRSCRECAT 
> 1231 7 ATT-CONTROLOLATRSL_ADDR] = 
31 Q 7 ATT-CONTROLILATRSW_SIZE] = RECATTR 
: 1 781 2 ATT-CONTROLICLATRSW-TYPE] = ATRSC~SEGNUM: 
: 1 7 é ATT-CONTROLICATRSL-ADDR] = SEG_NOMBER; 
3 : 5 . ATTR_END = 0; 
: 1 P 2785 2 STATUS = S$Q10W (CHAN = STA_IN CHAN, 
31 P 27 10SB = 10 STATUS 
: 1239 P 27 FUNC = 10S access OR I1OSM_ACCESS, 
> 1240 P 27 : Pl = FIB"DESC 
; 41 P 789 pS = ATT~CONTROL 
> 1246 791 If .STATUS THEN stitus .10_ STATUS 
; ! 44 19 IF NOT .STATUS THEN PrLE ERROR tonrcopé LOPENIN¢STSSK_SEVERE, .FAB, .STATUS); 
: 126 794 ! Validate attributes of the save set file. 
. eh 
: 1249 738 IF .RECATTREFATSB_RTYPE) NEQ FATSC_FIXED 
: 1250 798 2 OR .RECATIR ATSB RATTRI NEQ 0 
: 1251 799 2 OR .(RECATTRCFATSO Ke % of a0 
: 1 3 B00 2 OR .RECATTRCFATSW asize issu 
: 33 801 THEN FILE_ERROR (BACKUPS_N Ty eeser, FAB); 
:1 a 80 IF NOT .CONTINUE 
: 182 508 $e Maccin 
: 38 806 IF SEG. NUMBER NEQ 0 
: 1260 808 IF . QUAL CQUAL J MAG) 
> 1261 809 THEN FILE_ERR kon (BACKUP$_NOTISTVOL*STS$K_SEVERE, .FAB) 
: 1262 810 ELSE FILE“ERROR (BACKUP$"NOTISTVOL, .FABY: 
3: 126 811 QUAL CQUAL_BLOT_ VALUES s mecart TROFATSW. “RSIZEI: 
+ 1264 Big RWSV_EOF = ROT~(.RECATIR FAT $L gereukd.- 16); 
: 65 815 IF anes Core Frovted 0 
Py = 
: 1 6 HE RWSV_VOL_RUMBER “Fist Piese, i _RVN); 
+ 1268 816 RWSV~SEG_NUMBER ° :SEG_NU 
+ 1269 81 END 
: 1270 gig 
: 13%) 520 § te ccin 
: 1 ig 821 IF .SEG_NUMBER NEQ .RWSV_SEG NUMBER 
3 1274 8 ; THEN FICE ERROR (BACKUPS ~W RORGVOL 
+ 1275 8 IF .RECATTRLFAT$W_RSIZE)~ NEG OUAC CQUAT *éroc _VALUEJ 
3 127 824 THEN FILE_ERROR (BACKUPS _BADBLKSIZE, .FAB); 
: ’ As 825 END; 
: 1279 859 END; ! End of routine INIT_SAVE_DISK 


ADSAVE Read Save Set p-19 AX-11 Oi ies 
Voee00! IN] _BAVE DISK - initialize sequential disk sav Pei 9 43: 98 BACKUP. SRC} 
> INFO#250 L1:2806 
; Referenced LOCAL symbol SEG_NUMBER is probably not initiatized 

eEXTRN READY_DISK, INIT 
eEXTRN FIND_NEXT, FREE_ 
sEXTRN STA_G10W 


OFFC 00000 INIT_SAVE_DISK: 
Gord 


0 6 MOVAB 
a nunaogngs ep ge amu au 
0000099 EF 9€ 9019 MOVAB 
3 ce 3 001 MOV 
F93C «= €9—s«#O «000IC MOVL 
08 A? gi DO 00021 MOVL 
OC A7 OOOIFFFE 8F DO 00025 MOVL 
56 8 A? DO 900 D MOVL 
64 4 AC E8 00031 BLBS 
7E D4 00035 CLRL 
68 01 FB 0037 CALLS 
ze D4 OO03A CLAL 
50 69 00 0003C¢ OVL 
E 30 AO 9A 0003F MOV ZBL 
7E D4 00043 CLRL 
7E F990 C9 08 C1 00045 ADDL 
7E F990 C9 10 ¢1 00048 ADDL 
56 DD 00051 PUSHL 
OOO1FFFF 8F DD 00053 PUSHL 
000000006 00 07 FB 00059 CALLS 
000000006 00 00 FB 00060 CALLS 
58 50 DO 00067 MOVL 
10 58 Es 006A LBS 
7E 0910 8F 3C¢ 0006p MOVZWL 
57 DD 00072 SHL 
000000006 BF ODD 90074 PUSHL 
6A 03 FB OOO7A CALLS 
000000006 00 00 §£B 00070 1$ CALLS 
0040 = 8F 0 6E 00 2C 00084 Movc5 
40 AE 0088 
44 AE 24 A6 DO 0008D MOVL 
48 AE 8 Ad BO 00092 MOVW 
28 (11 0009 BRB 
50 69 DO 00099 2$ MOVL 
05 31 AO €9 9009¢ BLBC 
7E D4 OOOAO CLRL 
01 FB Ong CALL 
0040 = 8F 00 6E 00 2C OO0AS 3$: MOvC 
40 AE OOAC 
50 08 AC 00 OOAE MOVL 
4a AE 60 DO 0008 MOVE 
48 AE 04 Ad B0 00086 MOV 
ra F96C C9 BO 00BB MOVL 
8 AE 4 F 9A 000C1 4$ MOVZBL 
C AE 40 AE 9 00C6 MOVAB 
4 AE 00040020 8F 00 000CB MOVL 


Save tite Rs 8 -R6,R7,RB,RI,RIO,R11 


1 
#131071, 12(¢FAB) 


40(F AB) 


NA 
CONTINUE, 2$ 


#1, READY_DISK 
-(§p 


INPUT i, A 


pe ph ROY, 
Nal 


QUAL, (SP) 
at QUAL, -(SP) 


#131071 
tT, a -DIR SCAN 
#0, IND" NEXT 


Stats 
1$ 


ia): *=(SP) 
mitts 1 ae 
=ERRO 


FREE_DIR 


10 (SP); #07 #64, FIB 
36(NAM), FIB+4 


OOATA 


40(NAM), FIB+8 


EA 
SP), 


#64," FI 
FIB- 


Wed 1 PO maT “Rit CCONTROLO 


wu or Sg RO 


DY -pis 


16h, FIB 


4a 
(7) 


2658 


-——--------— 


_READSAVE Read $ 


000000006 


OFF 
0800 


FO9A 


F9D8 
20 


AE 1 
Ae 00280008 
AE 


a 
08 
4C 
F 
7E 7? 
OOOTF FFF 
99 
67 
58 F8 
7 
000000006 
6A 
01 18 
19 
8F 1A 
8F 1A 
000000006 
6A 
52 
3F 04 
C9 
000000006 
000000006 
6A 
C9 1A 
AE 
ra) 
F978 
c9 48 
c9 
52 F932 


000000006 
6A 
c9 1A 


mmmmmmrn 
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ave Set - 16 
INIT SAVE DISK = initialize sequential disk sav 1 


oF 0D 
5e ode 
E E 
D4 QOOE 
4 QO0E 
F QOOE 
C QOOE 
4 QO0E 
F QOOF 
C 000F 
9F QOOF 
9A or 
DD F 
o 0 


wmno 
99 -"WBOWDIIM —NMWNYUN) "DOV @Mr oo 


NSUOoODo 
COOOCQOCOOCCOCOCOOCOOOOOOCOOCOOOOO OOOO OOOOCOOCOOOOOOCOO 


"> 


hae fw ae Se aw foe aw Fm we we ww aw ww aw ew lw www lw lola lala lola lo lololelololololololololelolololalolol=la) 
~My 


—-woow" F&O 


wom 


13 


ep-1984 


“$ 
-Sep-1984 


5$: 


6$: 


7$: 


9$: 


10$: 
11$: 


12$: 


13$: 


14$: 


99:33:98 == FaXckup sacineaosave a 


621442, ATT CONTROL 
G_NUMBER, ATT_CONTROL1+4 
ATTR_END 


=(SP 
ATT_CONTROL 
=(SP) 


yeh ATT CONTROLO+4 
SE 


-(SP) 
FIB_DESC 
-(SP) 

10_ STATUS 
#1T4, =(SP) 
wisio7i 

#12, STA_Q10W 
RO, STATOS 
STATUS, 5$ 
10_STATUS, STATUS 
STATUS, 6$ 

FAB, =(SP) 
#BACKUPS_OPENINGG 
#3, FILE-ERROR 


RECATTR+1 
RECATTR+2, #511 
RECATTR+2, #2048 


OVBnND NDS 
PAM AM AM 


FAB 
#BACKUPS_NOTSAVESET 
#2, FILE~ERROR 
SEG_NUMBER, R 
CONTINUE, 13$ 

+? QUAL+10, 9$ 
#BACKUPS_NOTISTVOL +4 
10$ 


FAB 
#BACKUP$_NOTISTVOL 
#2, F RROR 
RECATTR+2, QUAL+72 
#16, RECATTR+8, RWSV_EOF 
R cAttRete 
Fipe8 RUSV VOL _NUMBER 
R2, RWSV_SEG_NUMBER 
RWSV_SEG_NUMBER, K2 
14$ 
FAB 

ACKUP$_WRONGVOL 


#2, FILE~ERROR 
RECATTR+2, QUAL472 


4 
32:2 


Pee Se Se Se Se Se Se Be Se Ge Se Ge Se Se Se Se Se Ge Se Se Se Fe Se Se Ge Se Se Se Be Be Be Se Se Be Se Se Be Se Be Se Se Se Be Se Be Se Be Be Se Fe Be Be Se Se Se Se 


13 
od Read Save Set 1$-Se p-1984 00: cots ’ AX-11 Bliss-32 v4.0 Page 46 
-001 1 6 


| NIT_SA VE DISK = initialize sequential disk sav leosep-19 11:5 BACKUP. SRC JREADSAVE. "63 :2 (7) 
13 001A8 Bea. 158 F 
PUSHL FAB : 2824 
00000000G 8F oD OO1AC PUSHL #BACKUPS —_- : 
| 6A 02 FB 001B2 CALLS #2, FILE-ERRO ; 
04 OO1BS 158: Ret ; 2827 


; Routine Size: 438 bytes, Routine Base: CODE + 07F9 


SN OOOO —E 


| p13 
| READ Read Save Set 16-Sep-19 :13: AK-11 Bliss-32 v4.0-74 Pp 47 
voe INIT SAVE _TAPE = initialize save set tape 10-380-198e 99:33:98 teacKuP. SRE READSAVE .832;2 ah (8) 
.> 1 ZSBITL “INIT _SAVE_TAPE = initialize save set tape’ 
; : : ROUTINE INIT SAVE_TAPE (VERIFY) : NOVALUE = 
:1 1 1 te 
3 1 ; 1! 
: } } } FUNCTIONAL DESCRIPTION: 
; i 5 i ; This routine sets up the input tape for reading. 
:1 1 i CALLING SEQUENCE: 
; ; : ; } INIT_SAVE_TAPE (VERIFY) 
:1 tf 1 | INPUT PARAMETERS: 
- 841 1! VERIFY: TRUE to indicate setup for verify pass 
; ; 74) : } FALSE to indicate normal initialization 
:1 844 1 | IMPLICIT INPUTS: 
3 1 845 1! NONE 
3 1 gee 1! 
3 1 84 1 ! OUTPUT PARAMETERS: 
3 1 848 1! NONE 
s 7 849 1! 
3 1 520 1 ! IMPLICIT OUTPUTS: 
3 1 851 1! NONE 
3 1 o3¢ 1! 
a 9 8535 1 ! ROUTINE VALUE: 
3 1 854 1! NONE 
3; 1308 855 1! 
3; 1 326 1 ! SIDE EFFECTS: 
; 1310 85 1! NONE 
; 1311 858 1! 
31 12 B39 1 ie. 
; 131 860 1 
3 ; 13 36) BEGIN 
31 16 a8 LOCAL 
3; 131 864 FAB : REF BBLOCK, ' pointer to input FAB 
3; 1318 865 STATUS ' the usual status value 
> 1319 866 FILE_SECTION, i file section number 
; 1320 86 TAPE CHAR : BBLOCK (4) : sogtene device characteristics 
3: 1321 868 LABEC_BUFFER : BBLOCK (90), ! buffer for tape labels 
3 : ¢ 44 10_STATUS : VECTOR (4,WORDJ; ! 1/0 status block 
> 1324 87 EXTERNAL ROUTINE 
3; 1325 % FILE_ERROR ' signal file related error 
3 1 $ 87 READY_TAPE, ! prepare tape for 1/0 | 
3 1 874 SENSE CHAR, ! sense magtape characteristics 
: 1328 75 REWIND, ' rewind tape 
: H i$ READ"LABEL i = pow met 9 Label 
$ 1331 78 Liestvt_oT8 : ADDRESSING_MODE (GENERAL); 
3 \ § !' convert decimal to binary 
1 1 ! Set up the input tape, Rewind it if called for; if we are setting up a 
: ! 5 § } snett boye ges written SHORE UID for verify, backspace over it rather 
: 133 HH than rewinding to save time. 


13 
e Set 1$ “19 13: AX-11 Bliss-32 V4.0-74 P 48 
VE. TAPE - initialize save set tape 10-805-1986 99:33:98 BACKUP. SRC READSAVE.039;2 eee (8) 


Se 


FAB = .RWSV_SAVE_FAB; 
TAPE_CHAR ="READY TAPE (FALSE): 
IF ,QUALCQUAL REWT AND NOT .INPUT_FLAGSCINPUT_REWOUND] 


EGIN 
REWIND (): 
TAPE CHAREMT$V Bor} . TRUE ; 
INPUT _FLAGSCINPUT _ EWOUND] = TRUE; 
ELSE IF .VERIFY 
THEN 


BEGIN 
Fe OR COT LSSU 1000 


BEGIN 
SKIP_TM (-3); 
TAPEXCHAR = SENSE_CHAR (); 


DAAAAAMMIUIV 


5 
5 
; 


REWIND (): 
TAPE _CHAREMTSV_B0T3 = TRUE; 


56 


$02 END; 
§ H If the tape is at BOT, read and verify the volume header label. 

9 If .TAPE_CHARCMT$V_BOT) 

70 THEN 

71 BEGIN 
378 STATUS = READ_LABEL (LABEL_BUFFER, *VOL1"); 
373 IF NOT .STATUS THEN FILE_ERROR (BACKUPS_LABELERR, .FAB, .STATUS); 
375 WHILE TRUE 

26 DO 

7 BEGIN 

78 STATUS = READ_LABEL (LABEL_BUFFER); 

79 IF NOT .STATUS THEN FILE ERROR (BACKUPS$_LABELERR, .FAB, .STATUS); 

L_HBILID) EQL *HORT* THEN EXITLOOP; 


IF .LABEL_BUFFERCHDIS 
END; 


END; 
: Search for a HDR1 record that matches the desired save set name. 


SEEEES 


IF NOT TAPE CHARCMTSY BOT] 


a ak a kt tk a at tk tt a a tk a = a os a = ss a a se a 


88 OR NO MATCH"SSNAME (LABEL_BUFFER) 
90 BEGIN 

91 WHILE TRUE 

% DO 

9 BEG 

94 


Se ae a Te RO Ee AD 


—_-———_—_ —_ — 


; 146 


SRLES 


SSIERFUNSSSSVEAREN LS Saerenran=osewe 


ak a a aa ak at at a a 8 in Ot at at a as 9 ss 4 — 4 4 _ — 4 — 2 2 ss 9 4 


S88 yee ee Ce pe dee Aap tise itit- 


errr 
Ww —o 


- 


SDAP AA ADDIE BE EEE EE 


F 13 
inl AVE ibe - initialize save set tape 19-398-198 99:33:98 YekcKuP’ sre READSAVE 03 2 


If NOT .STATUS THEN FILE_ERROR (BACKUPS_LABELERR, .FAB, .STATUS); 


sTaTy aT yKEAD LABEL (LABEL_BUFFER, "HDR1"); 
AND MATCH SSNAME (LABEL_BUFFER) 
THEN EXITCOOP; 


— EQL SSS$_ENDOF VOLUME 


BEGIN 

SKIP_TM (+2); 

IF INPUT FLAGS INPUT ILDSAVE) 

HEN COM_FLAGS(COM_EOV) = TRUE 

ELSE 
BEGIN 
COM_FLAGSCCOM_EOV] = FALSE; 
FILE_ERROR (BACKUPS_OPENIN+STSSK_SEVERE, 

-FAB, SS$_NOSUCHFILED; 

END; 

RETURN; 

END; 

END; 


INPUT_FLAGSCINPUT_SSFOUND] = TRUE; ! Note that save set was found 
Notify of a new save set if requested. 
if .INPUT_FLAGSCINPUT WILDSAVE) AND .QUALCQUAL_LOG] 
THEN SIGNAL (BACKUPS_REWSAVSET 
HD1$S_FILEID, LABEL_GUFFERCHD1$T_FILEID)); 


Check other HDR! fields. 


CHSMOVE (HD1SS_FILESETID, LABEL_BUFFERCHDIST_FILESETID], RWSV_FILESET_ID); 
If NOT LIBSCVT-DTB (4, LABEL_BUFFERCHDI$ST FICESEQNO), RWSV_FICE_NUMBER) 
THEN FILE ERROR (BACKUPS LABELERR, .FAB, GACKUPS_NOTANSI); 

IF NOT LIBSCVT DTS (4, LABEL BUFFERCLHDI$T FILESECNOJ, FILE_SECTION) 

THEN FILE ERROR (BACKUPS_LABELERR, .FAB, GACKUPS_NOTANS!); 

IF .FILE_SECTION NEQ 1 


THEN 
BEGIN 
- QUAL CQUAL 


LSE FILE-ERROR (BACKUPS_ROTISTVOL, .FAB); 
RWSV_VOL_NUMBER = .FILE_SECTION; 
: Read and check HDR2. 


= READ LABEL (LABEL BUFFER, ‘HDR2"); 
»STATUS THEN FILE ERROR (BACKUPS LABELERR, -FAB, .STATUS); 
EL_BUFFERCHD2$B8 RECFORMAT) NEQ 'F 

( LABEL_BUFFERCHD2$T_RECLENJ, 


S 
T 
AB 
Dg S_RECLEN 

HD2$S"BLOCKLEN, LABEL_BUFFERCHD2$T_BLOCKLEN)) 


a 
oc 
Se 
or 


G 
F IMAG 
The FILE_ERROR (EBacKUPS NOTISTVOL AND NOT SFIELDMASK (STSSV_SEVERITY)) * STSSK_SEVERE, .FAB) 


Page 


kd 
(8) 


18-Sep-1 


ADSAVE Read Save 4 00:13: AX=11 Bliss -32 v4. Pp 
voe501 IN mt tor ibe - initialize save set tape 10-380 -138e 99:33:98 BACKUP. Src READSAVE. o7833; :2 ‘op (a) 
314 THEN FILE_ERROR (BACKUPS_NOTSAVESET, .FAB); 
E i$ § yr uor L Bsc pre bess CABELERA Age =DuAFERcOasT RECLENI. QUAL CQUAL_BLOC_VALUEJ) 
: 1455 3 IF NouAt a er BLOE SALUEY L55 ¥ ; 
: 14 OR .QUALCQUAL “BLOC VALU beau 5 
; 14 é THEN FILE_ERROR (BACKUPS_NOTSAVESET, .FAB); 
13 1259 Skip to start of the data records. 
3; 1461 
; 1468 SKIP_TM (1); 
3: 146 
3 14646 END; ! End of routine INIT_SAVE_TAPE 
.EXTRN READY_TAPE, SENSE_CHAR 
SEXTRN REWIND, READ_LABEL 
EXTRN LIBSC tvi. DTB 
OFFC 00000 INIT_SAVE_TAPE: 
-@ORD Save R2 RS R4,R5S,R6,R7,RB,RI,R10,R11 : 2829 
5B 000000006 00 4 90002 MOVAB SKIP : 
5A 000000006 8F 00 000 MOVL POACRUPS LABELERR, R10 : 
39 000000006 00 9E 00010 MOVAB FILE_ERROR, R9 : 
8 00000090" EF 9E 00017 MOVAB INPUT FLAGS RB F 
5€ 9 AE 9E 0001 MOVAB ad : 
56 FEES CB DO 000 MOVL  RWSV save FAB, FAB + 2886 
7E 04 000 CLRL =(SP : 2887 
000000006 00 01 FB 00029 CALLS #1, READY_TAPE : 
52 50 00 000 VL RO. TAPE _CHAR : 
16 FF4S 6 C8 E9 0003 BLBC QUAL+13,~1$ 3 2888 
68 95 00038 TSTB INPUT_FLAGS : 
12 19 00034 BLSS : 
000000006 00 00 FB 000 ¢ CALLS #0, REW ; 2891 
52 01 10 01 FO 0004 INSV nie. wn. TAPE_CHAR 3 289 
68 80 8F 88 00048 B1SB2 +138" INPUT. FLAGS~ 3 389 
2D 11 S094¢ BRB > 2888 | 
29 06 ac €9 O04E 1$ BLBC VERIFY, 3$ + 2896. 
Q000003E8 = BF FF2C C8 01 0005 CMPL § RWSV_OUT_BLOCK_COUNT, #1000 > 2899 
ie 1E 00058 BGEQU : | 
7€ 03 CE 0005D MNE #3, -(SP) 3 2902 
01 FB 9060 CALLS #1, SKIP_TM : 
000000006 9 98 FB O06 CALLS #0, SENSE_CHAR : 2903 
DO 0006A MOVL RO, TAPE_CHAR : 
0¢ 11 0006D BRB 3$ : 2899 
000000006 00 00 FB 0006 28: CALLS #0, REWIND : 2908 
52 01 1 01 FO 00076 INSV #1, #16, #1, TAPE_CHAR : 2909 
4F 7 10 €1 00078 3$: C #16 Tape CHAR, 6S : 2916 
314C4F56 BF bb 007F PUSHL  #827084630 : 2919 
10 AE OF 0085 S LABEL BUFFER : 
000000006 99 FB 00 CALLS ae. READ_LABEL : 
D ef VL STATOS 3 
8 3 2 BLBS STATUS, 4$ : 2920 
E 6 7D 0009 MOVa , USP) : 
3A DD 098 PUSHL : 
69 3 FB OOO9A CALLS #3, FILE_ERROR : 


H 13 


:13: - iss-32 V4.0-74 Page 3} 
1ergee= 18s 99:b8: BACKUP SRE SREADSAUE .839;2 (8) 
Init SAVE _TAPE - initialize save set tape 18-86-1984 singel ae _ 
en oe a3 = CALLS” ie READ LABEL 
000000006 99 09 A ovL RO: STATOS S nese 
8 ; AA piss STATUS, 58 
¢ 7 ond Fag. : 
0 Hoc FE SP PHBRE os, FARES PRs srTLs AMOR asso le 
3152644 GML LABEL. 
Om tf 00s TAPE_CHAR, 6$ i 3934 
OBF BBC 16 ; : 39% 
7 ee ot ON a 7 
een 8) EB ooce BLES RO. 108 i 
. 1 DD QOOCE 68: PUSHL wT” ; | 
i ; 004 ROVE RO; STATOS : 
85 9 0 9000 MovL” RO: STATOS fax 
00 BLBS STATUS, ; 
ee 36 5D 00009 nova FAB. = (SP) ; 
00DC | 
69 3 Pe ooops CALLS #3, FILE ERROR F nei 
31524068 BF bb OOOET 78: PUSH. 6 ; 
10 Ag St Gone PSS LABEL BUFFER 3 
espera , ob or Use Sthruse 88 : 2945 
9 000F4 
g RG Ee tae : 
so 8) EB O0OFF BLBS RO: NOS (pe 
37 bi Oo1os BS: EMPL. «STATUS. 2 ; 
0000090 BF 57 01 00102 cnt I at 
7E 02 CE 00108 MNEGL #2, ante i : 
68 BED alts Sate #6, INPUT FLAGS, 98 2 2953 
06 £1 00111 BBC #6. INPUT FLAGS, : $33? 
a a2 fe O1 88 00115 81382 #1, COM_FLAG te 
1 BA OOITA 98: Bi cB #1, COM_FLAGS : 2957 
Bee oost0 Be Se OTT MOVZwL #2820, =(SP : $958 
” ge Bp tt ; PUSHE WBACKUPS OPENING ; 2958 
ee 03 Fe 001 ] CALLS #3, FILEZERROR 2951 
: ¢ RISE st #1, INPUT_FLAGS#1 : 3366 
re | 6 ET Ons | Bate’ Be’ Inpurcetacs, 118 : 
14 c3 i E1 00137 BBC at, QUAL STI, 116 Pees 
14 FF43) OC 0 ke fe ot PUSHAB LAGEL_BUFFER+4 : 
Negi | me ; 
one FRR eh Smee 
mr ie HOB RL REE Riepe. mouse i ay 
ees my BE Bis Bins Rect 2 
oF OG bb OOISE PUSHL oe 
000000006 90 3 FB ste) cas Bae LiQSCvT_ go 
0 ee bo ACKUPS_NOTANS I : 
1 PUSHL #8 ‘ : 
wre By PUSH FAB 


; Routine Size: 


_ 


Read Save Set 
INIT _SAVE_TAPE = initialize save set tape 


69 
28 

000000006 6° 
000000006 

69 

01 

OA FF42 «§6C8B 
00000000* 


9 000000006 


FEDS = C8 
sare 
000000006 00 
57 
8 
E 
69 
46 «BF 10 
11 AE 16 «AE 
000000006 
69 
80 
1A 


000000006 60 
000000006 


6 
0800 8F 


co 
o 


IND F OVWIDNOO PF F OWMDOO PF OVO F WA ODWMOWU10 -“AOWWNICO YF VIow 


PDOOWP HO MOWVIT CONT AD MCOM WS HO NORM MM MAO MAWOMWP AO MNOWL MMW Py 


nn 


69 


000000006 
68 


555 bytes, Routine Base: 


CODE + O9AF 


1bBen-1964 90:15:92 


DD 0017 PUSHL 
FB 0017 CALLS 
BD 00178 128: PUSH 
F OOI7A PUSHAB 
DD 00170 PUSHL 
4 17F CALLS 
E8 001 LBS 
DD 001 PUSHL 
DD 0018F PUSHL 
DD 00191 PUSHL 
FB 00193 CALLS 
D1 00196 138: CHL 
1 BEQL 
£1 00198 BBC 
DD OO1Al PUSHL 
DD O01AS PUSHL 
11 001 BRB 
DD OO1AB 14$: — PUSHL 
DD O01AD PUSH 
FB 00183 15$ CALLS 
BO 00186 16$: OVW 
DD 00188 PUSHL 
9F 001CI PUS 
FB OO1CS CALLS 
D0 001¢B MOVL 
£8 O0iCE BLBS 
D 00101 mova 
DD 00104 PUSHL 
FB 00106 CALLS 
91 00109 178:  CMPB 
12 00106 BNEQ 
29 O01E0 CMPC3 
13 00166 BEQL 
DD OO1ES 188: — PUSHL 
DD OO1EA PUSHL 
FB 001 9 CALLS 
9F OO1FS 198:  PUSHAB 
9F O01FG PUSHAB 
DD OO1F PUSHL 
fe OTF CALLS 
E8 0020 BLBS 
DD 0020 PUSHL 
DD 00208 PUSHL 
DD 00200 PUSHL 
4 F CALLS 
B1 00212 208: CHP 
E 0021 BGEQU 
DD 0021A PUSHL 
Dd 0021C PUSHL 
FB 00 CALLS 
DD 218: PUSHL 
FB 00 CALLS 
04 0022A RET 


AX-11 Bliss-32 v4.0 
BACKUP. SRCJREADSAVE. “3 32 
a. FILE_ERROR 
it BUF FER+27 
b {BSCVT_ p18 
Rickie NOTANS I 
R1 
ph FILE_ERROR 
tase SECTION, #1 
QUAL+10, 14% 


#<<BACKUPS_NOTISTVOLE~8>+4> 


FAB 
gary rt -NOTISTVOL 


f 3 oe SET RRO Rusy. VOL __NUMBER 
Ga2so032 


R 
#3, FILE ERROR 
ABEL BUPFERSS, #70 
#, LABEL_BUFFER+10, LABEL_BUFFER+S 


FAB 
#BACKUPS_NOTSAVESET 
#2, FILE-ERROR 
QUAL+ 
‘' BUF FER+10 

3. LiBscvT_ote 
pct, NOTANS I 

E_E 

Bit ~p30e8 
AS 
BACKUPS -NOTSAVESET 


FILE-ERR 
zi. SKIP_TM 


5 


3001 


3003 


3004 


3009 
3011 


2s 


ERE LS tt toy et PE RRP RS 


DAADE BE EEE EEE EEE EEE EEE EEE EPP EEE EEE 


AUVLOSBNVERE 


SLESE 


ee ee ee ee ee LLL | 


PUPP PUP DVDSP AASV AAAI 


PPI et et et et ot ot to 
MO OOO Uw 


13 
inl in’ Save = initialize save set for reading 1b-Se0-1984 99:33:98 YOXckuP’ SRE aREADSAUE .035:2 a 33 


i 1 ZSBTTL ‘INIT . SAVE = initialize save set for reading’ 
12 } GLOBAL ROUTINE INIT_IN_SAVE (VERIFY) : NOVALUE = 
15 1 !¢e 
18 
; : } FUNCTIONAL DESCRIPTION: 
019 ; This routine initializes the input save set. 
021 1 | CALLING SEQUENCE: 
; § : : INIT_IN_SAVE (VERIFY) 
024 1 | INPUT PARAMETERS: 
025 1! VERIFY: TRUE to indicate setup for yerity pass 
5 $ ; : FALSE to indicate normal initialization 
028 1 | IMPLICIT INPUTS: 
: . : NONE 
031 1 | OUTPUT PARAMETERS: 
0 1! NONE 
O88 yi 
0 1 ! IMPLICIT OUTPUTS: 
; 5 : : NONE 
05 1 ' ROUTINE VALUE: 
bee } NONE 
040 1 | SIDE EFFECTS: 
Res ’ : NONE 
SM hen 
Bee BEGIN 
047 LOCAL 
048 FAB : REF BBLOCK, ! pointer to input FAB 
049 RAB : REF BBLOCK, ! pointer to input RAB 
050 STATUS, ' the usual status value 
Be DEVICE_DESC : VECTORC2); ! Input device desc if mounted /FOREIGN 
b3§ EXTERNAL ROUTINE 
054 FILE_ERROR ! signal file related error 
055 INIT~BUFFERS, i initialize the buffer pool 
B29 EXTRACT_F ILENAME; ! extract file name, type, and version 
058 2 RWSV_IN_ERRORS = 0; 
059 RWSV_IN_XORUSE = 0; 
060 RWSV_IN_SEQ = 1; 
061 2 RWSV-IN"SEQ_0 = 1; 
06¢ RWSV-IN“XOR-RFA = 1; 
06 RWSV~IN-VBN7= 1; 
064 RWSV-IN-VBN_O = 1; 
0 If NOT .VERIFY 
06 THEN 
068 BEGIN 


Woecoot” in iY fave® - initialize save set for reading 1$-$e0-198 99: 43: 9 BACKUP. SRE READ SAVE .095: :2 ae 3 


RWSV_VOL_NUMBER = 1; 
RWSV-SEG-NUMBER = 0; 


: Do a UFO open on the input FAB and save away the channel. 


NOU w 


RWSV_SAV QUAL = .QUALCQUAL_INPU_LIST F 
ss SAVE-FAB = FAB : .RWSV=SAVE ~GUALCQUAL_PARA_FCJ; 
son OAT YOUAT ss. Fives 


wn 


ENBEGIN 
A ~BBLOCKLFABLFABSL DEVI, DEVSV_NET] 


FABCFABSV_B10) = FABLFABSV_SQ0) = TRUE; 
FABCFABSV_GET] = TRUE; 


ELSE 
FABCFABSV_UFO] = TRUE; 


IF .QUALCQUAL_SS_FILEJ 
OR .BBLOCKCF FABER ABSL DEV], DEV$v_SaD] 


N 
BEGIN 
If the device is not mounted foreign do a SOPEN; otherwise do a SASSIGN 


uw 


FFF 
NOUSWN OO 


IF NOT .BBLOCKCFABLCFABSL -DEV) DEVSV_FOR] 
ete STATUS = SOPEN (FAB-= .FAB) 


3 


NOUEWN—OOW 
y oy oY oY oY oF at at nl, |”, YP et et et et et eh hh sh hh hh eh ee et et et el ew Oe oY oo 
@ 
m 
i) 
me 
z 


= -BBLOCKE. -FABLFABSL_NAM], NAMSB REVI: 
= :BBLO cK FABLFABSL NAM], NAMSL~DEV 

ABSL_STS) = SASSIGN (BEVNAM = DEVICE DESC 

CHAN = FABLFABSC_STV3); 


PAAAMAUIMUIWN 


Pele) 
vo 


IF NOT .STATUS 
THEN FILE_ERROR (BACK PS _OPENIN¢STS$K_SEVERE, .FAB, 
a ABCFABSL_STS), .FABCFABSL_STVI); 


PPPAPAAAAA MI 


SETSTS 


eS 


BEGIN 
INIT_SAVE_DISK (0); 
END; 


IF .QUALCQUAL_SS_FILEJ 
THEN 
BEGIN 
RAB = FABLFC RAB); 
aati sv sconnect (RAB = .RAB); 
THEN FILE_ERROR wa FS Hs boar 7 PRABSE .F 


J. -RABCRABSL_STV iF 
If at reese. RFMJ NEQ Pas a 
OR .FABLFABS$B_-ORG) NEQ FABSC~ fe 


SAVSKRANIVSSE 


Be Se Se Se Se Se Se Se Se Be Se Se Se Se Se Se Se Se Se Se Ge Ge Se Fe Fe Ge Ge Se Se Ge Se Se Ge Se Se Ge Ge Se Se Se Se Se Ge Se Se Se Se Ge Ge Se Se Se Se Se Se Gee 
ee ee ee ee em ee ee ee me ee ee ee ee ee ed nd ed od ed 
NNN SN NNO 


ee ee ee ee a ee ed ed td od oe 
OND et petty tee bebah ta tat ated anrretas 
EWN OOO NOAUE WIN SO DONANE WN 


PPV PPP PPA A MIN 
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init iN. SAVE = initialize save set for reading 1$-500-1984 99:33:98 BACKUPY SRE READ SAY “3 i2 —- (33 


-BBLOCKCFABCFABSL_DEV], DEVSV_NET] AND .(FABLFABSW_MRSJ)<0,9> NEQ 0 
PRE Fite Hass (BACRUPS_.NOT Avese -FAB); r 

QUAL(Q AL BLOC VALUE J s jf ABLFABSY_ Z 

CHSROV (RABSS-RFA, RABCRABSW_RFAJ; RWSV_IN_XOR_RFA); 


c 
ELSE 
RWSV_CHAN = .FABCFABSL_STV); 


1 adel eaemamatain (.FAB, COM_SSNAME); 


J 


“Voe-b0t" 


a 1 
8 1 
+ 1 
y 1 
3 7 
a 1 
= 1 
3 7 
= 1 
3} 
— 1 
J 1 
eo 1 
oe 1 
eo 1 
eo 1 
oO 1 
3 7 
e 1 
3 3 
= 1 
8 1 
3 7 
3 7 
a 1 
3 Y 
oO 1 
3 3 
e 1 
3 3 
3% 
3 
oO 1 
3 3 
3 
3 
3 3 
3 
sy 
oO 1 
3 
3 
3 3 
3 3 
3 
3 Y 
oO 1 
3% 
3 
3% 
5 Y 
3 3 


uw 


: Otherwise do setup for input verification. 


ELSE 


BEGIN 
bis = eSuPteSAMEy! 
If ,OUALCOUAC.SS_F1L€3 


SRLESRANSLES 


SAL Ab Ab Ab Al 


BEGIN 
STATUS = SREWIND (RAB = .RAB); 


If NOT . U 

THEN FILE_ERROR CoacKyes OPENIN+STSS$SK_ SEVERE, .FAB, 
-RABCRABSL_STS)J, .RABLRABSL_STVJ); 

CHSROVE (RABSS_RFA, RABCRABSW_RFA), RWSV_IN_ROR_RFA); 


END; ‘ 
ALT_SSNAMECO) = 0; 
: Set up the input tape. 


tS 


NOP APAA AAO 
VHIRNNITSIS STS SFE SSeS SSeS SSS SSS 


If .BBLOCK oF eats oe PF DEV$V_SQD] 


j 
AND NOT .QUALCQUAL_SS~FILE) 
THEN 
BEGIN 
INIT_SAVE_TAPE (. VERIFY); 

IF .INPUT~FLAGSLINPUT_WILDSAVE] AND .COM_FLAGSCCOM_EOV] THEN RETURN; 


APAAAPSASAAAAOAO 
a ed a ad ed dd 


MPN 


: Set up the buffer pool. 


IF NOT .VERIFY 
THEN 


GIN 
INIT_BUFFERS (QUAL COUAL BUFF _VALUEJ, .QUALCQUAL_BLOC_VALUE)); 
RWSV_IN_GROUP_S1ZE = 1*3T-1; 


me ee ee ek a ed ae od od ds a a = a 


= POPIWWINIAIIPINIDINPINIDAI WWWIIPIPIPIPINIPINININIWE & H&B FAWN II BE 


—OOONOUESWUN “OOONOUESWN—O 


Wwtonofonorforfury 


POARASAAAO 


END; ! End of routine INIT_IN_SAVE 


T BUFFERS, EXTRACT_F ILENAME 


.EXTRN INI 
“EXTRN SYSSOPEN, SYSSASSIGN 


413 
ADSAVE Read Save Set 16-Sep-1 13: AX-11 Bliss-32 V4.0-74 
‘Vbe=601 INIT_IN SAVE = initialize save set for reading 122308-1 382 99:33:98 BACKUP .SRC READSAVE .09952 — (3 
| eEXTRN SYSSREWIND 
O3F .ENTRY INIT_IN_SAVE, Save R2,R3,R4,R5,R6,R7,RB,RO = 301 
9 00000000G &F § O00 MOVL #BACRUPS SPER INS. R : we 
g 9900 006 0 9E 000 MOVAB FILE_ERROR : 
0 Fe 5 019 MOV RWSV-IN_XOR_RFA, R7 : 
é § C2 0001 SUBL2 # : 
OC A? D4 OOOIA CLRL. © RWSV_IN_ERRORS : 3058 
FS OA? 1 DO 0001D MOVL #1, RWSU_IN_SEQ + 3060 
FB OA? 1 DO 00021 MOVL #1, RWSV-IN~SEQ_0 3 3061 
67 1 DO 00025 MOVL #1, RWSVIIN-XOR-RFA : 066 
18 AZ 1 DO 00028 MOVL #1, RWSVZIN@ : 3063 
1¢ A? 1 00 000 MOVL #1, RWSV-IN-VBN_O ; 064 
51 4B «OAT 1 03 EF 000 EXTZ2V #3, #1, GUAC+15; R1 : 078 
3 04 AC 59 00 BLBC VERIFY. 1$ : 
pC AT sa 0 80 D 1$ SOvL a RWSV_VOL_NUMBER : 306 
E4 A? 3c = A?-—s«OO-:00041 MOVL QUAL, RWSV_SAVE_QUAL : 307 
50 —4 AZ? 00 BO066 MOVL RWSV_SAVE_GUAL, RO 3; 307 
56 04 AO DO O0004A MOVL 4C(ROS, F : 
8 A? 56 DO 0004 MOVL FAB, RWSV_SAVE_FAB : 
07 Ab 01 88 0005 BISB2 #1, 7(FABY : 3077 
14 51 £9 9005 BLBC. =O «aR, 3 : 3078 
09 41 A6 05 EI 005 BBC #5. 65(FAB), 2$ : 3081 
04 Ab 40 8F 88 00055 BISB2 #64, 4(FAB) : 3083 
16 Ab 20 8 0006 BISB2 #32; 22(FAB) : 
16 Ab 02 88 00067 2$ BISB2 #2, 22(FAB) : 3085 
04 11 90068 BRB 4 : 3078 
06 Ab 02 88 0006D 3$: BISB2 #2, 6(FAB) : 3088 
05 51 €8 00071 4$: BLBS_—s RI, : 3090 
42 40 Ab 05 £1 00074 BBC #5. 64(FAB), 8S : 3091 
0B 43 Ab E8 00079 S$: BLBS  67(FAB), 6$ : 3098 
56 DD 0007D PUSHL FAB : 3099 
000000006 00 01 FB 0007F CALLS #1, SYSSOPEN : 
20 11 00086 BRB 7$ : 
50 28 A6 DO 00088 6$: OVL 40(FAB), RO : 3102) 
6E 9 Aad 9A 0008C MOVZBL 57(RO), DEVICE_DESC ; | 
06 AE 44 ad 00 90090 MOVL  68(RO), DEVICE-DESC+4 : 3103) 
7E 7C 0009 CLRQ = = (SP) : 3105. 
OC A6 SF 00097 PUSHAB 12(FAB) : 
OC AE 9F OOO9A PUSHAB DEVICE _DESC : 
000000006 00 04 FB 0009D CALLS #4, SYSSASSIGN : 
08 Ag 50 DO O00A4 MOVL RO. 8(FAB) : 
5 20 09 9 OAS 7S: MOVL RO, STATUS > 3104 
14 E OA BLBS StAtUs. 9$ : 3107 
7E 08 Abd 7D O00A MOva (FAB), -(SP) : 3109 
56 DD 0008 PUSHL FAB : 3108. 
59 DD 00084 PUSHL R9 F | 
68 04 FB 0086 CALLS #4, FILE_ERROR ; 
o7 11 00089 BRB 9$ : 309 
E 04 0008B 8$: CLRL =—_ = ( SP) : 311 
FBSD CF 01 FB 000B CALLS #1, INIT_SAVE pISK : 
4E 4B OA7 03 3 00C2 9$: BBC #3, QUAL715, T3$ : 311 
52 50 Ag E 99¢ MOVAB 80(R6), RAB : 311 
52 DD 000CB PUSHL RAB : 312 
000000006 99 gi FB 00CD CALLS #1, SYSSCONNECT F 
0 pO 000D4 MOVL RO, STATUS F 


N13 
16-Sep-1984 


Read Save Set :13: AX-11 Bliss<-32 V4.0-74 p 7 
INITLIN SAVE = initialize save set for reading 14-Sep-19 4 99:33:98 EBACKUP. SRCIREADSAVE.83 :2 win aH 
98 5 58 D7 BLBS TATUS, 10$ : 3121 
E 08 A2 7D OOODA MOva (RAB), =(SP) : 31 3 
DD 0000 PUSHL FAB + 3122. 
DD 3 H Rg : 
68 4 FB 0 E CALLS #4, FILE_ERROR : | 
01 1F A691 E5 108: CMPB 31 (FAB). #1 t 3124 
12 1 0 £9 BNEQ 1$ : 
iD AB 9 EB TSTB 49 (FAB) + 3125 
D 12 O00E BNEQ 1$ : 
13 41 Ab 5 €1 OOOF BBC #5, 65(FAB), 12$ + 3126 
OFF = BF 36 AG cH OOF BiTw 54¢FAB), #511 : 
OOF EQL 4=s«128 : 
DD OOOFD 11$ PUSHL FAB : 3127 
000000006 8F DD OOOFF PUSHL #BACKUPS_NOTSAVESET : 
6 02 FB 00195 CALLS #2, FILE-ERROR : 
0084 ¢ 36 AG 80 0108 12$ MOVW  54(FAB), QUAL+72 : 3128 
67 10 A2 0 é 90106 MOVC3 #6, 16(RAB), RWSV_IN_XOR_RFA : 3129 
05 11 0011 BRB 14§ : 3116 
EC A? 0c AG DO 00115 138:  MOVL  12(FAB), RWSV_CHAN : 3132) 
OOAC C7 9F OO11A 14$:  PUSHAB COM_SSNAME + 3134 
56 OD OO11E PUSHL FAB : 
000000006 00 02 FB 00120 CALLS #2 EXTRACT_F ILENAME : | 
2A 11 00127 BRB 17$ + 3066 | 
56 £8 A7 00 00129 15$:  MOVL RWSV_SAVE_FAB, FAB : 314 
52 0 Ab 9 0120 MOVAB 80(R6), RAB : 314 
iF 51 €9 00131 BLBC ~—Er—s«aR?1,_-178 + 3144 
52 DD 00134 PUSHL + 3147) 
000000006 00 01 FB.00136 CALLS #1, SYSSREWIND : 
53 30 D0 0013p MOVL RO, STATUS : 
0B 53 £8 00140 BLBS STATUS, 16$ : 3148 
7E 08 A2 7D 00143 MOV (RAB). =(SP) : 3150 
56 DD 00147 PUSHL FAB : 3149. 
59 DD 00149 PUSHL R9 : | 
68 04 FB 00148 CALLS #4, FILE_ERROR : 
67 10 A2 06 28 OO14E 16$:  MOVC3 #6, 16(RAB), RWSV_IN_XOR_RFA : 3151) 
Oopc C7? 94 00153 178:  CLRB ALT _SSNAME > 3154) 
18 40 A6 05 €1 00157 BBC #5, °64(FAB), 18$ : 3159) 
13 4B OAT 03 €0 0015¢ BBS § #3, QUAL+15, 18$ : 3160 | 
04 AC DD 00161 PUSHL VERIFY : 3163) 
FC6C CCF 01 FB 00164 CALLS #1, INIT_SAVE_TAPE : | 
05 0104 (7 06 E1 00169 BBC #6, INPUT_FLAGS, 18% 3 3164 | 
1D 00B6 C7 €E8 0016F BLBS § COM_FLAGS; 19$ ; 
19 04 AC €8 00174 18%:  BLBS  VERTFY, 19$ : 3170. 
7E 0084 Cc? 3¢ 00178 MOVZWL QUAL+72, =(SP) : 317 
7E 0088 ¢7 9A 0017D MOVZBL QUAL+76, -(SP) : 
000000006 00 02 FB 00182 #2 Init BUFFERS : 
08 A7 7FFFFFFF 8F 00 00189 MOVL  #2147483547, RWSV_IN_GROUP_SIZE : 3174 
04 00191 19$: _—RET : 3177) 


3; Routine Size: 402 bytes, Routine Base: CODE + OBDA 


-—_—_—- 


R 

READ 
: 1633 17 
3; 16 138 
3; 1655 180 
; 16 181 
3; 16 1 ¢ 
3; 1638 1 
3; 1639 184 
; 16460 185 
3 1641 1 $ 
3 ieee 1 
a is 
3: 1645 150 
3 1646 191 
3 1647 136 
> 1648 19 
3: 1649 194 
: 1650 195 
3; 1651 138 
3 1638 19 
3; 165 198 
3 1654 199 
3; 1655 soo 
3; 1656 01 
3; 1657 $06 
3; 1658 $50 
: 1659 204 
: 1660 $502 
3 1661 206 
3 1066 3207 
3; 166 3208 
3: 1664 3209 
3; 1665 $519 
3: 1666 3211 
3 1667 351§ 
3 1668 21 
3: 1669 3214 
3; 1670 3215 
3; 1671 3216 
: 1676 $512 
3; 167 218 
3 1674 3219 
3; 1675 220 
Be 
3; 1678 2 5 
3 1679 $ 4 
: 1a 3 
3 1882 229 
3: 168 228 
3: 1684 229 
3; 1685 0 
3 1686 1 
3: 1687 ; 
: 1688 3 
3; 1689 3234 


' 
} 
| 
| 
| 
| 
| 


w< 
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a read a save set buffer 18-Se0-1984 99:33:98 YekcKuP’ sre nenotave.o3 i2 


ZSBTTL "READ _BUFFER = read a save set buffer’ 
GLOBAL ROUTINE READ_BUFFER = 


Leg 
FUNCTIONAL DESCRIPTION: 


This routine reads a corrected buffer from the input save 
set, applying XOR recovery if necessary. 


CALLING SEQUENCE: 
READ _BUFFER () 


INPUT PARAMETERS: 
NONE 


IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
BCB address of buffer read 
SIDE EFFECTS: 
NONE 
BEGIN 
LOCAL 
° ' count of blocks missed 
RAB : REF BBLOCK, ! RAB to read input file 
BCB : REF BBLOCK, ' BCB of block read 
BUFFER : REF BBLOCK; ! data buffer read 
EXTERNAL ROUTINE 
FILE_ERROR ! signal file related error 
FREE~BUFFER; ! release buffer to free List 
! Loop, reading buffers until we get an acceptable data block. Others 
are treated appropriately. 
IF .RWSV XORSIZE NEQ 0 THEN RWSV_IN_GROUP_SIZE = .RWSV_XORSIZE; 
WHILE TROE 


RWSV_IN-ORGERR 


BEGIN 

RWSV jn _Oncenet 
BCB = READ SEQ_BLO 
If .BCBCBCB_10-STA 


TRUE; 
0: 
K 


w 
WANNA IPIPIPPMPINPNIPYIPIPINIPININNI IY a a a st st tt tk kk tk kk tk kh dd kt ey 


(TRUE); 
US) EQL SS$_ENDOFFILE 


Page 0) 
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| READSAVE Read Save Set 1h-se 1984 00:13: AX-11 Bliss-32 V4.0-74 P 59 
Woer00) READ _BUFFER = read a save set buffer 12786871 38e 99:13:98 BACKUP. SRCIREADSAVE .B3 32 29° 10) 
; 1690 5 3 THEN 

; 1691 4 BEGIN 

3 1936 & BCB = NEXT VOLUME (.BCB); 

; 169 8 4 IF .BCB EOC 

3; 1694 9 & THEN RETURN 0; 

3 1o22 re END; 

s 1899 g IF .(RWSV_IN XOR_RFA)<0,32> EQL 0 

3 1698 4 AND .(RWSU_IN_XOR_RFA+4)<0,16> EQL 0 

: 197) 4G THEN 

3; 1700 45 4 EGIN 

3 17) +8 4 RAB = RWSV_SAVE_ FABCFC_RABI; 

; 170 4 4 CHSMOVE (RABSS_RFA, RABCRABSW_RFAJ, RWSV_IN_XOR_RFA); 

; ire ro BUFFER = .BCSCBCB_BUFFERI; 

3; 1706 51 : Check if a block has been skipped. If exactly one has, then apply XOR 
3; 1707 26 ; seoers to get it back. If recovery fails, report the error unless the 
3; 1708 $2 ! missed block was an XOR block. We do not count or report block skip 

3; 1709 2 ! errors if we're trying to read the first save set block, and there was 
3; 1710 255 ! no 1/0 error; this is the condition of being handed a continuation 

3 1711 28 ! volume to start with. 

fing ag 

3 17146 59 IF .BUFFERCBBHSL_NUMBER] - .RWSV_IN_SEQ EQL 1 

3; 1715 260 4 AND (.RWSV_IN SEG NEQ .RWSV iN xOR_SEQ + .RWSV_IN GROUP_SIZE + 1 

3 1716 261 4 OR .BOFFERCBBHSW_APPLIC] EQL BACKUPSK_XORBLOCK) 

3 1717 $06 4 AND (.RWSV_IN_SEQ NEQ™1 OR NOT .RWSV_IN_ORGERR(OJ) 

; 1718 263 3 THEN 

3 1719 264 & BEGIN 

3; 1720 265 4 BCB = XORCIZE (.RWSV_IN_SEQ, .BCB); 

3; 1721 266 4 BUFFER = .6CBCBCB_BUFFER); 

3 \7s¢ 267 END; 

3: 172 268 

3 1726 269 K = .BUFFERCBBHSL_NUMBER] - .RWSV_IN_SEQ; 

3 1725 270 IF .K NEQ 0 

3: 1726 271 THEN 

3 1727 si¢ 4 BEGIN 

3; 1728 273 «(5 IF (.RWSV_IN_SEQ NEQ 1 OR NOT .RWSV_IN_ORGERR(O)) 

: 1768 274 & THEN 

3 17 275 «5 BEGIN 

> 1731 276 6 IF (.RWSV_IN SEQ NEQ .RWSV_IN_XOR_SEQ + .RWSV_IN_GROUP_SIZE 
3 17 ¢ 277 g OR .K NEG 1) 

3 17 $f8 

3: 17 79 6 PEGIN 

3; 1735 280 6 ILE_ERROR (BACKUPS BLOCKLOST, .RWSV_SAVE_FAB, 

> 1736 281 6 ~RWSV_IN_ORGERRCOS, .RWSV_IN_ORGERR(1)); 

3 1737 obe 6 RWSV_IN_ERRORS = TRWSV_IN_ERRORS - 1; 

3; 1738 28 ; END; 

3; 1739 284 END 

3: 1740 HH 4 S$ 

3 1741 86 4 RWSV_IN_ERRORS = .RWSV_IN_ERRORS - 1; 

: 1748 287 4 IF .RWSV-IN~GROUP_SIZE NEQ 

3 174 spe 4 HEN 

3 1744 89 2 BEGIN 

3 1765 290 IF .BUFFERCBBHSL_NUMBER] GEQU .RWSV_IN_XOR_SEQ + .RWSV_IN_GROUP_SIZE 
3 1746 291 § THEN RWSV_IN_XOR~SEQ = .RWSV_IN_XOR~SEG 


—_—_—__--—— , 


~ 
> 
~ 


0 

64 0 
$5 1 
66 1 
767 1 
768 1 
769 1 
770 31 
771 31 
re 31 
77 31 
774 31 
775 3 
776 3 
777 ; 
778 2 
779 32 
780 32 
781 32 
3 32 
78 32 
s 

3 

3 

3 

34 


So 


AAA AIL AAI AAI 


uw 


ONO UE WO 0 


FESSEESAS 


SSN SSS SSS 
SCS SS = 
WN —O OONOUSWN—O 
WA. ANA A AINA AINA NWI WNW AANA 
oO Riu woowovono 
USLSSSNSCRON SS Seno newrw—-OoSee we Gir OS Boe an owe 58 
PAD WN NN NAAAAAAA AAA NNN NAA AA NNO AO NUE & BANANA = 


ee ee ee ee ee ee ee ee i eee 


Ssisseisse 
AAAAA AANA AAAA NAIA 


a 
Be Se Se Se Be Be Se Se Se Se Se Se Se Se Ss Fe Se Se Se Be Se Se Se Se Ge Se Se Se Se Ge Se Ss Se Se Be Se Se Se Se Se Se Ss Se Se Ge Ge Se Se Se Se Ge SH Se Se os Ge Ge 


I sctiistliiieestiitidiciininebinainieeanetaamedaamnaniaial 


Set 
R= 


D 14 
16-Sep-1984 00:13: AX-11 Bliss-32 V4.0-74 
read a save set buffer 12-808 -198e 90:33:98 BACKUP’ SRETREADSAVE BS i2 
+ (.BUFFERCBBHSL_NUMBER] = .RWSV_IN_XOR_SEQ) 
‘om / .RWSV_IN_GROUP-SIZE * .RWSV_IN-GROUP_SIZE; 
END; 


Do basic validation checks to make sure we can understand this block. 
Note that this is done even if the block reads with an error, since 
the header data is protected by the header CRC. 


IF .BUFFERCBBHSW SIZE] LSSU BBHSK_LENGTH 
THEN SIGNAL (BACRUPS$_INVBLKHDR) 


Process the data block. If there has been a read error, attempt to 
' recover it. If the error persists, report it. 


ELSE 
N 
Ree eae PLE EQL BACKUPSK_DATABLOCK 


BEGIN 
IF .BUFFERCBBHSW STRUCLEV] NEQ BBHSK_LEVEL? 
THEN SIGNAL (BACRUPS$_INVSTRUCT) 


BEGIN 
IF NOT .B8CBCBCB_STATUS) 
THEN 


BEGIN 
BCB = XORCIZE (.RWSV_IN SEQ, .BCB); 
eurreR = ,BCBCBCB_BUFFER); 


IF NOT .BCBCBCB_STATUS) 
THEN 


BEGIN 
FILE_ERROR (BACKUP$_READERR*STSS$K_ERROR, 

~RWSV_SAVE_FAB, .RWSV-IN_ORGERRLOJ, .RWSV_IN_ORGERR(1)); 
RWSV_IN_ERRORS = TRWSVTIN_ERRORS = 1; 


Check that the save set name in the block header matches the labels. 
A mismatch indicates Ngee off the end of an incomplete tape. 
f we are instructed to conti 


nue, use the new save set name. 


IF CHSNEQ (.ALT_SSNAMECOJ+1, ALT_SSNAME, 
tea > (BUFFERCBBHST_SSNAMEJ)<0,8>+1, BUFFER[BBHST_SSNAME}, 255) 


BEGIN 
IF .ALT_SSNAMECO) NEQ 0 

THEN FICE_ERROR (BACKUPS _SSCHANGE, .RWSV_SAVE_FAB); 

CHSCOPY (7 (BUFFERCBBHST SSNAME))<6,8>+1, “BUFFER[BBHST_SSNAME), 
“i 0, BBHSS_SSNAME, ALT_SSNAME); 


IF .BUFFERCBBHSL_BLOCKSIZE] NEQ .BCB(BCB_SIZE) 


Poe 18) 


| 
| 


14 
ADSAVE Save Set hese -1984 00:13: AX-11 Bliss-32 v4.0-74 P 1 
voe-004 BUFFER = read a save set buffer 1-8ep-198e 99:33:98 BACKUP. SRC READSAVE .039;2 29° 1) 
3 1 6 THEN SIGNAL (BACKUPS ime KSIZE); 
3 1805 RWSV_IN SEG = .BUFFERCBBHSL_NUMBER) + 1; 
3 1 g XI TCOOP; 
3 7 3 
r : 2 END; 
5 ; 9 2 : If the buffer contains an KOR block, note its sequence number. 
5 181 4 
3 1 i§ 4 IF .BUFFERCBBHSW_APPLIC] EQL BACKUPSK_XORBLOCK 
3; 1816 4 THEN 
3; 1815 BEGIN 
3 1 18 RWSV_IN_XOR_SEQ = .BUFFERCBBHSL 7 Fi 
3; 181 RWSV_IN XOR-RFA = jBEQCBCB_BLOCENUA 3 
3 1818 IF .GUACCQUAL_SS_FILE 
3; 1819 THEN 
; 1820 6 BEGIN 
: 1821 6 RAB = RWSV_SAVE FABCFC_RAB); 
; ; § CHSMOVE (RABSS_RFA, RABCRABSW_RFAJ, RWSV_IN_XOR_RFA); 
3: 1826 4 END; 
3; 1825 4 
3 1897 END; ! end of major buffer valid condition 
: 1828 RWSV_IN SEQ = .BUFFERCBBHSL_NUMBER] + 1; 
: 1809 FREE-BUFFER (.8(B); 
; 18 END; 
: 1831 
3; 18 ¢ .BCB 
; 18 1 END; ! End of routine READ_BUFFER 


Re OD A PUrFeR. Save R2,R3,R4,R5,R6,R7,RB,R9,- = 3179 
5B 000000006 00 9€ 90002 MOVAB FILE_ERROR, R11 : 
3A 00000000" EF 9E 00 RWSV-IN_XOR SEQ, R10 ; 
0 0B AA 9A 9010 MOV ZBL RuSV-KORSIZE, rb : 3227 
OC AA $5 00 16 MOVL RO, RWSV_IN_GROUP SIZE ; 
16 AA 1 OO1A 1$: MOVG #1. RWSVTIN“ORGERR : 3331 
1 oO sf #1 3 3 
F555 CF ZZ. CALLS #1, READ_SEQ_BLOCK : 
37 9 D MOVL RO. BCB ; 
0870 «BF 18 «=A? Bl CMPW 4 (BcB), #2160 > 3234 
F 12 $8 BN $ 2 
7 0D PUSHL 8CB > 3237 
0000v cf 1 F CALLS #1, NEXT _VOLUME ; 
7 p ? nove RO, BC : 
2) ana BB 
RET ; 
06 AA fF 2% TSTL RWSV_IN_XOR_RFA > 3242 
14 42 BNEO F 
08 AA B5 0004 TSTW © ©RWSV_IN_XOR_RFA+4 > 3243 


| 


- steer sees 


eet tb 


04 


es 


t 


FER 
am AG 
51 
F815 
59 08 
51 
50 
50 08 
0100 
000000006 
0101 
000000006 


Bk 


00 


e 
- read a save set buffer 


00000050 F 
0 

F 

8 AO 
8 


OC AA 


14 AA 

Fe A 
000000006 of 
4 

10 =AA 

OC AA 


08 A6 


OOBE 
mf 
20 «A6 


F 
000000006 t 
0 1 


4 


ron 


Ww 

tad 
zaze 
<< 

[ on 


-Srmece~ oo 


ooo 


i=) 
= 
were 
we 
Cad 

o 

- 

@ 

wn 


SOOooooooooooooo 
Seessssses 
oa 
= 
eqereaace 
m bd 
o cr 


oo 
or 
2 
m 
o 


0083 


9$: 
10$: 


118: 


E 

E 

£6 

44 

FO 

F6 

f BRu 
12$: CMPW 
be 

4 


m3 -@ -9090—-9° No 


RO 08 Ow $$ DOoOomoon 90-900 7990-90 GC OmM09 nuovo” 


“3eo-1906 90:15:02 


AX-11 Oi lege vV4.0-74 
BACKUP. SRC JREADSAVE .832;2 


3 

780, RWSV_SAVE FAB, RAB 
4 16(RAB), ROSV_IN_XOR_RFA 
test haste io 

1(ROT, RI 
8(BUFFER), R1 


RWSV_IN_GROUP_SIZE. RWSV_IN_XOR_SEQ, R1 
RO, R1 

6(BUFFER), #2 

RO, #1 

RWSV_IN_ORGERR, 6$ 

Sacro aos 

#2, XORCIZE 

RO, BCB 

lelecs). eurFeR 

RO, S(BOFFER), K 

11§ 

RO, #1 

7$ 

RWSV_IN_ORGERR, 9$ 

RWSVEIN_GROUP_SIZE, RWSV_IN_XOR_SEQ, R1 


Kael 
RWSV_IN_ORGERR, =(SP) 
RWSV-SA 

SOACK UPS BL OCKLOST 

#4, FILE-ERROR 
RWSV_IN_ERRORS 
RUSVCIN_GROUP_SIZE, RI 


R1, RWSV_IN_XOR_SEQ, RO 
' UFFERT, RO 


RUSV, N_XOR_SEQ, 8(BUFFER), RO 


RI. R 
RO. RWSV_IN_XOR_SEQ 
(QUFFER) #256 


#BACKUPS_ INVBLKHDR 
#1, LIBSSIGNAL 


(BUFFER), #1 
(BUFFER), #257 
4$ 


#BACKUPS_INVSTRUCT 
#1, LIBSSIGNAL 


—_—— 


rr a -_— 


14 
— READSAVE Read Save Set 18-5 =| :13: AX-11 Bliss-32 v4.0-74 
‘Woerbot READ BUFFER = read @ save set buffer 1 7300-1 38e 99:33:98 EBACKUP.SRe READSAVE .832;2 
7E 11 00118 13$: BRB 19$ 
28 18 A? €8 0011 1a; BLBS 24(BCB), 15% 
St a 
#778 6 9 F 126 CALLS #2, RorCiZE 
| 7 DO 00128 MOVL RO. BCB 
$ of A 1 MOV (BCB), BUFFER 
1 A? 5 1 BLB (BCB), 15$ 
7E 14 AA ?D 001 mova SV_IN_ORGERR, =(SP) 
5S AA DD 0013A PUSHL RWSV-SAVE_FAB 
000000 ef DD 001 PUSHL #BACRUPS_READERR+2 
10 AA £8 12 perk nusv’ In ERnons 
50 OOEO CA H 128 15$ MOVZBL ALT_SSNAME, RO 
0 06 166 INCL R 
54 30 A6 9A 001 MOVZ7BL 48(BUFFER), R4 
4 06 00154 INCL RG 
54 fF OOS OOEO CA ae 30 D 136 CMPCS RO, ALT_SSNAME, #255, R4, 48(BUFFER) 
1B 1 169 BEQ. 4=és«é178 
0060 Ca 95 0016 TSTB © ALT_SSNAME 
c 1 166 BEQL ~=s«16$ 
gC AA 0D 00168 PUSHL RWSV_SAVE_FAB 
000000006 8F oD 168 PUSHL #BACRUPS$_SSCHANGE 
65 ge FB 00171 CALLS #2, Fite ERROR 
20 00 30 Ab ind 34 2¢ 0174 16$:  MOVCS R4, 48(BOFFER), #0, #32, ALT_SSNAME 
28 Ab 08 a7 10 00 FD 017D 17$: CMPZV #0 #16, 8(BCB), 40(BUFFER) 
D 01 BEQL «=és«éd188 
000000006 8F DD 001 PUS #BACKUPS$_INVBLKSIZE 
000000006 00 1 FB 01 ¢ CALLS #1, Liass NAL 
FB OA 08 Ab 1 €1 00193 188: ADDL3 #1, S(BUFFER), RWSV_IN_SEQ 
5 11 00199 BRB 1§ 
02 06 Ad BI 00198 19$: CMPW 6(BUFFER), #2 
1D 12 0019F BNEQ 
6A 08 Ag D O14} MOVL (BUFFER), RWSV_IN_XOR_SEQ 
06 AA 14 AZ? DO 001A5 MOVL 9(8¢B) RwSV_IR_XOR_RFA 
OF 4F OA 03 €1 OO1AA BBC #3, QUAL+15, 20$ 
58 EC AA 00000050 8F ct O1AF ADDL3 #80, RWSV_SAVE FAB, RAB 
04 AA 10 AB 6 28 00188 MOVC3 #6, °16(RAB), ROSV_IN_XOR_RFA 
FB AA 08 Ab 1 C1 OO1BE 208:  ADDL3 #1, S(BUFFER), RWSV_IN_SEQ 
7 DD 001C4 PUSHL 8 
000000006 00 01 FB 001C6 CALLS #1, FREE_BUFFER 
FEGA 31 gic BRW 
50 57 DO 00100 21$: MOVL CB, RO 
04 001D RET 


; Routine Size: 468 bytes, Routine Base: CODE + OD6C 


r-—-— - 


H 14 
ADSAVE Read Save Set 16-Sep-1984 213: 
| 1 Pincin save + finish reading save set 102388 - 1382 99:33:98 EBACKUP.SRe READSAVE .B832;2 
1835 79 1 ZSBTTL ‘FIN_IN_SAVE = finish reading save set’ 
: : } GLOBAL ROUTINE”FIN_IN_SAVE (CONTINUE) : NOVALUE = 
1 1 fee 
1 } } 
: » 3 } FUNCTIONAL DESCRIPTION: 
: § : : This routine completes the reading of the input save set. 
1844 es 1 | CALLING SEQUENCE: 
1845 9 1! FIN_IN SAVE (CONTINUE) 
ieee 90 1! 
1 91 1 =! INPUT PARAMETERS: 
HS 4 38 1! CONTINUE: TRUE if there is a continuation tape 
184 95 1! FALSE if this is the Last reel 
1850 9% «1! 
1851 95 1! IMPLICIT INPUTS: 
1826 38 1! NONE 
185 97 1! 
1828 a8 : setae taal ct 
1856 00 1: 
1857 01 1°! IMPLICIT OUTPUTS: 
1858 O¢ 1! NONE 
1859 03 1! 
1860 04 1 ! ROUTINE VALUE: 
138) 05 : : NONE 
i868 0 1 ' SIDE EFFECTS: 
1864 08 1! NONE 
1865 09 1! 
1866 10 1 i-- 
1867 7.6] 
iis Eh few 
1870 14 BUILTIN 
+ 14 i REMQUE; 
1878 ret LOCAL 
1874 3 STATUS, ' general status value 
1875 41 TM_COUNT, ' count of tape marks crossed 
1876 0 BcB : REF BBLOCK, ! pointer to current 8CB 
Hy A 1 FAB : REF BBLOCK; ' input FAB 
1879 x EXTERNAL ROUTINE 
1880 4 WAIT, ' wait for 1/0 completion 
1881 5 EREE BUFFER. ! free an 1/0 buffer 
1g SKIP_TM, ! skip tape marks 
188 UNLOAD ' rewind and unload tape 
1884 STA_D1SMOUNT i dismount save set disk 
1885 RESTORE VERIFY_REEL, ; ve pl input save set volume 
1358 : FILE_ERROR; ! signal file related error 
1888 4 § If the input is a file, close it. 
1890 
1891 5 2 FAB = .RWSV_SAVE_FAB; 


a 


j 


AX=11 Bliss-32 V4.0-76 


--_—_—-—_ -— - —- — ————— 


14 
_ READSAVE Read Save Set 1b-$e “19 :13: AX-11 Bliss-32 v4.0-74 Pa 5 
Voerb01 FIN_IN SAV - finish reading save set 1 =30071 82 99:33:98 BACKUP .SRC JREADSAVE .832;2 9 49} 


is 9 ; if -QUALCQUAL_SS_FILEJ 

3; 189 HEN 

3: 1896 IN 

; 1895 1f NOT .QUALCQUAL_VERIJ 

3 1 96 i OR .COM_FLAGSCCOM_ VERIFYING) 

3; 189 44 THEN 

3 1 38 ¢§ 4 BEGIN 

3; 1 435 4 STATUS = SCLOSE (FAB = .FAB); 

3; 1900 44 & F NOT .STATU 

3; 1901 45 4 THEN FILE_ERROR a9 CLOSEIN*STSSK_ERROR, .FAB, 
3 1DN¢ re 4 ne -FABCFABSL_STSJ, .FABCFABSL_STVJ); 
: 1308 rk _ 

3 iene 450 ! For a tape, wait out the gondine read aheads, and backspace the tape 
3 + 34 51 } over the trailer label set so that appending won't get lost. 
: 1909 § 

3; 1910 4 ELSE 

3 1911 5 BEGIN 

3 Hb at $ If .BBLOCK CFABLFABSL_DEV], DEV$v_SaD) 

3; 191 THEN 

3 1914 458 4 BEGIN 

3; 1915 9 4 TM_COUNT = 0; 

3: 1916 0 4 UNTIL REMQUE (.INPUT_WAITCOJ, BCB) 

3 1917 61 4 dO 

; 1918 5 IN 

3; 1919 5 IT (.B8CB); 

: 1920 464 5 FREE_BUFFER (.8CB); 

3; 1921 65 5 If .6ceCecB_1 _STATUS] EQL SSS_ENDOFFILE 
3; 19 ¢ 66 5 THEN TM_COUNT = .TM_COUNT *+ 1; 

3; 19 67 4 END; 

3: 1924 468 4 

3; 1925 469 4 SKIP_TM (=. TM_COUNT); 

3; 1926 70 4 

3; 1927 471 4 IF NOT .QUALCQUAL_VERIJ 

: 1928 4 OR .COM_FLAGSCCOM_VERIF YING) 

3; 1929 4 THEN 

3 19 474 § BEGIN 

: 1931 475 5 IF . CONTINUE 

3; 19 476 5 THEN UNLOAD (); 

: Sez 77 2 

; 19 SDASSGN (CHAN = .RWSV_CHAN); 

3; 1935 5 RWSV_CHAN = 0; 

3; 19 4 END; 

: 138 > & os 

: 1939 : 4 ! For a save set disk, wait out any pending reads. Then deaccess the file 
3: 1940 4 ! and dismount the volume. 

3 ize) 5 : : 

: 1968 $$ 3 

3 1944 4 BEGIN 

3 19465 4 UNTIL REMQUE (.INPUT_WAITCO), BCB) 

: by 490 & 00 

3 194 491 ; BEGIN 

3; 1948 92 WAIT (.8CB); 


ye FIN IN SAVES finish reading save set Pr sep-fobe Siistise | Foacnuee snes neapeaie -0$3:2 Page 49 


Run a verify pass if requested (and if this is not already a verify pass). 


1949 93 FREE BUFFER (.8CB); 

198 38 ons 

19 IF nor tir COUAL_VERI] 

19 i 3$ OR. AGSCCOM Any VERIFYING) 

19 9 meh 

1955 ) gin 

19 g Pp $$Q10W (CHAN = ,RWSV_CHAN 

195 P FUNC = i0$_DEACCEss 

1989 § IF .CURRENT_MTLCMTL_SEQ_DISK) 

1960 THEN 

1982 3 sia brs ISMOUNT (.RWSV_VOL_NUMBER) 

1968 4 3 al6w ¢ (CHAN = iGghRENt 9 T OcBCvCB_ tHAN), 
1365 $03 “ain 

9] 511 END; 

968 31g 

969 51 

970 514 

373 318 

378 319 

974 518 

975 519 2 IF .RWSV_IN_ERRORS NEO 

976 520 @ THEN FILE ERROR (BACKUPS$_SOFTRERRS, .FAB, .RWSV_IN_ERRORS); 
97 521 If ght IN_XORUS Q 

378 ¢ THEN FILE. ERROR (BACKUP$_XORERRS, .FAB, .RWSV_IN_XORUSE); 
9 

9 

9 

9 


APU oS 


IF NOT .COM_FLAGSCCOM_VERIF YING) 
THEN 


BEGIN 
IF .QUALCQUAL_VERIJ 
THEN 


DoOoOo0o0O 
SELES 


BEGIN 

SIGNAL (BACKUP$_STARTVERIFY); 

COM pLAGSiS On VERIFYING) = = TRUE; 

THEN Tht? IN“SAVE (TRUE) 
IF .BBLOCK CFABCFABSL_DEV), DEV$v_SaD) 
THEN READY -MEXt LV vol LUME (); 


“SEQ_0;° 
IN_VBN_O; 


QO; 
SAVE meeL Os 

COR” “fLxes COM. Rtg at = FALSE; 

If CONTINUE THEN SIGNAL (BACKUPS$_RESUME, 1, .RWSV_VOL_NUMBER+1); 


BEBE LEE EEE FAWN nononono nor 


DOONA VE WN 9 ODNOAUE WN “OOONOUE 


5 
4 
4 
4 
4 
6 
6 
6 
6 
END; 
END; 
: Inform the user of any input errors that we might have graciously 
! recovered. 
& 
4 
4 
4 
4 
4 
4 
& 
4 
& 
4 
4 
4 
4 
; 


Se Se Se Se Se Se Ge Ss Ge Ge Se Se Ge Se Ge Fe Se Ge Ge Ge Ge Se Ge Ge FF Ss Ge Ge Se Se Be Se Ge Se Ge Se Oe Se Gabe Se Ge Ge Se Ge Se Ge Ge Ge Se Ge Ge Ge Ge Se Ge ae 


RIPPIN IDI at at at rt a ta a ak a kk kk tk tk as od ot ot oe = 
QP PUPV DV PUP PULL PUSUPUSU SUIS 


Soe tr eres aeee 


— Sse» 


-—-—- — C—O 
; 


@ Bi” 


Read Save 
FIN_IN_SAV 


et 
- finish reading save set 


O3FC 
jae aa Te 
$ 000 oe 0 $e titi 
j Oompmey” HO Ea 
26 95 AS §3 3 900 A 
3 82 TB o9o8e 
6E 65 05 E1 009 
4 0D 00038 1$: 
000000006 00 01 FB O003A 
62 0 Es 00041 
7E 08 AG 7D 00044 
54 DD 00048 
i 000000006 er DD QO04A 
is 11 00038 
4E 40 AG 03 E1 00055 2% 
2 D4 OO05A 
53 FEG2 D5 OF 0005C 38: 
$$ Db oooes 
wR 
68 01 FB 0006A 
0870 = &F 18 ; a a 
af FF Us 
000000006 0b 01 fs $87 _ 
 § Be 
” $3 os Ae £9 Qoo8e 58: 
ennuaeene ints FF36 0° 4) 0099 68: 
000000006 00 63 FB 00 ; 
FF36 C5 b4 sa 
53 FE42 i oF DAB 8$: 
67 1 PB bon 


16 ge 19 
-Seo- 
14-Sep-19 


~EXTRN 
eEXTRN 


PUSHL 
CALLS 


Be 99:43:92 


! End of routine FIN_IN_SAVE 


AX=11 Bliss-32 ee On oss 
BACKUP. SRC JREADSAVE .832;2 


SAVE, gove R2,R3,R4,R5,R6,R7,RB RI 
GNAL, R 
FFER, R8 
7 
R6 


#3, COM_FLAGS, 7$ 
#1, SYSSCLOSE 
StAtUs. 7$ 

(FAB), =(SP) 
FAB 


#BACKUPS_CLOSEIN+2 
#4, FILE_ERROR 


">. - =P Aaa 8$ 
@INPUT_WAIT, BCB 


#1, FREE_BUFFER 
4(BCB) .-#2160 
TM_COUNT 


TM_COUNT, =(SP) 
# SkIP_TM 
QUAL+1 
#3, COM FLAGS, 10$ 
CONTINUE, 6 

UNLOAD 
RWSV_CHAN 
#1, SYSSDASSGN 
RS V_CHAN 
giNPUT_WAIT, BCB 


BCB 
#1, WAIT 
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14 
PIN IN SAV ‘. finish reading save set 1$-Se0-1984 99:53:98 LBACKUP SRE READSAVE .093:2 


DD PUSHL CB 
68 oF CALL wie FREE_BUFFER 
93 AS 9 98: TSTB = QUAL #13 
1 BGEQ=s«a118 
4A ry) 3 CO 108:. C #3, COM_FLAGS, 12$ 
— 7c 11$:  CLRO -<§P) 
7E 7C C6 LRQ = =( SP) 
7E ge C CLRQ 0 = SP) 
7E 7C OOOCA CLRO 343? 
7E 34 70 9 cc MOVa #52, =(SP) 
FF36 ¢3 DD 000C PUSHL RWSV_CHAN 
E D4 0000 LRL (grt 
000000006 90 Of FB 000D CALLS #12, STA_QIOW 
5 OSFE C5 DO 000DC MOVL CURRENT AT » RO 
29 31 Ap t O0ET BLBC =: 49.(RO) 
ve FF26 C5 3C OO0ES MOVZWL RWSV_VOL_NUMBER, -(SP) 
000000006 91 FB OOOEA CALLS #1, STA_BISMOUNT 
E 7C O00F1 CLRO 0s = ¢§P) 
7E 7C 000F3 CLRQ 0 =( SP) 
7E 7¢ 00085 CLRQ = =( SP) 
7E 7C OO0F CLRQ 0s = (SP) 
7E 01 7D 000F9 mova 1, =(SP) 
0 0602 C5 bo door ¢ MOVL CURRENT _VCB RO 
E 08 AO 3C 00101 MOVZWL 8(RO), =(SP5 
7E D4 00103 CLRL = (SP) 
000000006 00 o¢ FB 00107 CALLS #12, SYS$QI0W 
50 FFS6 OC 3¢ QOO10E 12$: MOVZWL RWSV_IN_ERRORS, RO 
9p 13 0011 BEQL  =-138 
0 0D 0011 PUSHL RO 
54 DD 014 PUSHL FAB 
000000006 8F DD 00119 PUSHL —ABACKUPS_SOF TRERRS 
66 03 FB OO11F CALLS #3, FILE ERROR 
5 FFSB OC 3¢ 001 3 13$: MOVZWL RWSV_IN_RORUSE, RO 
0D 7 01 BEQL §=«-:14 
50 DD 00129 PUSHL 
54 DD 01 B PUSHL AB 
009000006 8F DD 001 : PUSHL ACKUP$_XORERRS 
66 0 FB 001 CALLS #3, FILE-ERROR 
64 6 £0 00136 14$: BBS #3. COM_FLAGS, 18$ 
93 ad 95 001 A TSTB QUAL +15 
49 18 00130 BGEQ ©=-:‘17$ 
000000006 8F DD 0015F PUSHL #BACKUPS_STARTVERIFY 
69 91 F O145 CALLS #1, LIBSSIGNAL 
65 : 88 0014 BISB2 #8 FLAGS 
FF28 36¢5 BS 00148 TSTW  RWSV_SEG_NUMBER 
09 12 O014F 15$ 
1 OD O15 PUSHL #1 
FB42 CF i FB 0193 CALL “, INIT_IN_SAVE 
05 40 Ab 5 €10015A 15$: BBC #5, 64(FAB), 16 
0000v CF : FB 015F CALLS #0, READY_NEXT_VOLUME 
FF C5 FE42 CS DO 00164 16$: = MOVL Rusv_IN_SEQ_0, RWSV_IN_SEQ 
Frog 5 FESS G3 oe oorgs CUR. RUSVTINTERRORS wv N~VON 
000000006 00 66 FB 00176 CALLS #0, RESTORE_VERIFY_REEL 
04 AC 0D 00170 PUSHL CONTINUE 


————— 


-_--- eS 


M14 
oe AVE Read Save Set Je~3e0- 138% 90:13:02 AX-11 Bliss-32 V4.0-74 
1 FIN_IN SAVE = finish reading save set 14-Sep-19 53: BACKUP.SRC JREADSAVE .B832;2 
FE7B CCF 01 FB 001 CALL #1, FIN_IN_SAVE 
6 08 BA ett BIC § #6, FLAGS 
12 0 at ? 00188 17$: BLB CONTINUE, 18$ 
7E FF26 =«C C 0018C VZWL RWSV_VOL_NUMBER, -(SP) 
6E 06 00191 INCL (SP) 
01 DD 00193 PUSHL #1 
00000000G 8F DD 00195 PUSHL open RESUME 
69 03 FB oie CALLS #3, LIBSSIGNAL 
04 19E 18$: ET 


; Routine Size: 415 bytes, Routine Base: CODE + OF40 


1 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 
MAP 
‘ 
AND 
THEN 


N14 
Set 16-Sep-19 :13: AX-11 Bliss-32 V4.0-74 
VOL_HANDLER = handler for next volume proce 12-308-1 984 99:33:98 YBACKUP. SRE READSAVE .832;2 


ZSBTTL "NEXTVOL_HANDLER = handler for next volume processing’ 
ROUTINE NEXTVOLZHANDLER (SIGNAL, MECHANISM) =” . 


ee 
! 

FUNCTIONAL DESCRIPTION: 
This routine is the condition handler for the TRY_NEXT_VOLUME 
routine. It resignals the error with informational severity and then 
returns failure, causing a retry. 


CALLING SEQUENCE: 
NEXTVOL_HANDLER (SIGNAL, MECHANISM) 


INPUT PARAMETERS: 

SIGNAL: signal argument List 
MECHANISM: mechanism arg List 
IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

NONE 
IMPLICIT OUTPUTS: 

NONE 
ROUTINE VALUE: 

TRUE 
SIDE EFFECTS: 

NONE 


BEGIN 
BUILTIN 
CALLG; 
SIGNAL : REF BBLOCK, ! signal arg 
MECHANISM : REF BBLOCK; ! mechanism arg 
EXTERNAL ROUTINE 
STA_DISMOUNT, ! dismount volume 
LIBSSIGNAL : ADDRESSING_MODE (GENERAL); 


! Fix up the severity of the error being signalled. Then resignal it 
' and unwind. 


IF senas Foie Sb 51S NAME] NEQ_ SS$_UNWIND 


-S 
NOT .SIGNALCTHFSE _SIG_NAME] 
8 
I 


EGIN 
F NOT .BBLOCK CRWSV_SAVE_FABCFABSL_DEV], DEV$v_SQD] 


| READSAVE Read Save 

| VOe-004 Next 
; 201 3 
3 19 4 
5 Big 5 
: 201 5 $ 
3; 2014 é 
3; 2015 8 
3 B18 55 
; 201 560 
; 2018 561 
3; 2019 206 
: $059 2e7 
3; 20 ¢ ee 
3; 20 268 
5 ose 56 
3; 2025 568 
3 os8 569 
; 20 570 
a 
3 080 238 
3; 2031 574 
; $oR6 575 
3; 203 276 
3; 2034 57 
3; 2035 578 
3; 2036 579 
3; 2037 580 
3; 2038 581 
3; 2039 ong 
3; 2040 58 
3 2041 584 
$ $00¢ 585 
3 204 586 
3 2044 587 
3; 2045 588 
3 see $268 
3 2047 590 
3; 2048 3591 
3 2049 $286 
; 2050 359 
3; 2051 3594 
3 $238 3595 
3; 205 238 
3 2054 59 
3; 2055 598 
: 2056 599 
; itt 600 
3; 2058 3601 
3; 2059 ooe 
$ 60 
3; 2061 604 
3 oe) 605 
3; 206 one 
3; 2064 60 
3 2065 608 
3; 2066 609 


Page 70 
290 12) 


Be Se Ge Ge Ge Se Ge Ge Se Ge Se Ge Se Ge Se ae 


ADSAVE Read Save Set -Sep-19 AX-11 Bliss-32 V4.0-74 P 71 
ee NEXTVOL_H HANDLER = handler for next volume proce 18-Sep-1984 99: 33 9g BACKUP.SRC aban Save 35:2 09° 42) 
ie 
Pp \¢ 4 "BEGIN (CHAN = $TA_IN_CHAN 
p 613 4 FUNC = 1087 “DERCCESS 
i 4 STA_DISHOUNT (.RWSV_VOL_NUMBER); 
1 pe.ock (si CCHF SL 1G_NAME], STSSV_SEVERITY] = STSSK_INFO; 
18 SIGNAL GNALCCHFSL SIG nes) = ~-S1GNALECHFSC. SIG_ARGS] = 2; 
1 CALL banda A.C GNAL); 
0 bee HANI SMU CHF SL ACH wih = FALSE; 
1 SUNWIND (); 
6 ‘ END; 
4 2 SS$_RESIGNAL 
5 END; ! End of routine NEXTVOL_HANDLER 
.EXTRN LIBSSIGNAL, SYSSUNWIND 
0004 00000 NEXTVOL_HANDLER: 
«WORD Save ; 3554 
52 06 Ac v0 00002 MOVL S1GNA - 83 > 3605 
00000920 BF 04 A2 D1 00006 CMPL  =s &(R2), ma 36 ; 
5 3 00 00g BEOL 33° : 
54 06 A2 €8 0001 BLBS 4(R2), 2$ > 3606 
0 00009000" EF D9 00014 MOVL §RWSV_SAVE_FAB, RO + 3609 
28 40 AO 5 E 00018 BBS B4(ROT, 1$ ; 
— 7C 9002 CLRO se > 3614 
7E 7C 00022 CLRQ 2s =( SP) ; 
7E 7C 00024 CLRQ 2 = (SP) ; 
7E 7C 00026 CLRoO = ; 
7E 4 7D 00028 mOva ase -(SP) ; 
OOOIFFFF F OD 90 8 PUSHL #131071 ; 
—E D4 00031 CLRL. oS : 
000000006 99 OC FB 00033 CALLS #12, STA_ : 
3 00000000" EF 3C O003A MOVZWL RWSV_VOL~NUMBER, <(SP) > 3615 
000000006 1 Fe 00041 CALLS #1, STA Bis 3 
06 A2 03 3 FO 00048 1$: INSV a3. 80,783, 4(R2) : 3617 
6 02 C2 0004 SUBL2 #2. (R2) : 3618 
000000006 62 FA 00051 CALLG (RO), LIBSSIGNAL : 3619 
0 08 aC D0 00098 mOVL CHANISM, RO : 3620 
43 Be 0003 CLRO > 3621 
000000006 0 FB 00061 CALLS a2, $s Suv IND ; 
0 0918 ~=aBF 3¢ 00068 28 MOVZ2WL # oF > 3625 
00060 RET 3 


: Routine Size: 110 bytes, Routine Base: CODE + 100F 


15 
ADSAVE Read Save Set 16-Sep-1984 00:13: AX-11 Bliss-32 V4.0-74 Pp 
Voeroo! READY _NEXT_ VOLUME = set up next volume 1273851 $8e 99:43:98 BACKUP. SRC IREADSAVE .83 2 ase 
ZSBTTL *READY_NEXT VOL - set next volume’ 
F 1 GLOBAL ROUTINE READY NEXT VOLUME TF ItE Ibo eS 


tee 
' 


FUNCTIONAL DESCRIPTION: 


This routine reads and verifies the Labels on the candidate 
continuetion volume. 


i CALLING SEQUENCE: 
READY_NEXT_VOLUME () 


i INPUT PARAMETERS: 
: FILE_ID: address of continuation file ID if disk 


PES SS SE EET 


i IMPLICIT INPUTS: 
NONE 


i IMPLICIT OUTPUTS: 
i NONE 

i ROUTINE VALUE: 

i TRUE 


' 

' 

' 

' 

‘ 

' 

t 

' 

' 

' 

' 

’ 

i QUTPUT PARAMETERS: 
NONE 
' 

! 

' 

' 

' 

' 

' 

i SIDE EFFECTS: 
NONE 
' 

‘ 


MAMA 
NOV EWN OO ODBNOUE WN “OO WEN 
a kd a oo 


SSSSeS cosas 
Ss &R 
Pe 


FILE_ID : REF BBLOCK; ! file 1D arg 


: REF BBLOCK, ! pointer to input FAB 


AB 
STATUS, ! the usual status value 


7 BUFFER_SIZE, ' size of 1/0 buffers 
R ' output for decimal convert 

669 LABEL_BUFFER : BBLOCK (90); | buffer for tape labels 
671 EXTERNAL ROUTINE 
ore FILE ERROR, ! signal file related error 

Le READY TAPE. pre ore tape for 1/0 

e > ewiln 

i io: Roe PRS 

73 LiestvT_oTé : ADDRESSING_MODE (GENERAL); — 
ors ' convert decimal to binary 
680 RWSV_SAVE_FAB; 


ae ee ee ee ee ee ee ee ee eee 


SSSGERFUNSSVSVEAREN LS Ses AERA =SSSVERFaRLS 


FAB =. 
681 RWSV_IN_ERRORS = 8: 
B82 2 RWSV-IN-XORUSE = 


READY NEXT VOLUME = set up next volume 14-Sep-19 


VFN "OO OBNOUS Wh 


PPPS EE 


—s a Ss bs» se 4 2 


ee eee 
MEW 0 OD WOVE WO OGVNO UF wn 


LESRIS LS SELSEARRATALS SSVSAFANASSSLFSTFERIS Se 


SN NNN 


SoU 


ad Save Set 1b-Sen-1984 90: YF: 9¢ AX-11 Bliss-32 V4.0-7 


: Set up the input tape. Rewind it if called for. 


eee CFABCFABSL_DEV], DEV$v_SOD] 
BEGIN 


READY Wit (FALSE); 
REWIND ( 


Read and neste the volume header Label. Then scan for HDR1. 
STATUS = READ LABEL (LABEL_BUFFER, ‘VOL1") 
IF NOT .STATUS THEN FILE_ERROR (BACKUP LABELERR, FAB, STATUS); 
WHILE TRUE 
dO 
BEGIN 
STATUS = READ LABEL (LABEL BUFF 


If NOT ;STATUS THEN. FILE ERROR (BACKUPS LABELERR, .FAB 
IF .LABEL_BUFFERCHDISL_HBILID] EQL "HDRT' THEN EXITLOOP; 


~ STATUS); 


! Check HDRT for the correct save set name, file set ID, and file 
} & section numbers. 


IF NOT MATCH_SSNAME (LABEL _ BUFFER) 


OR CHSNEQ (HDISS_FILESETID, LABEL BUFFERCHDIST_FILESETID), 
HDISS"FILESETID, RWSV_FILESET_ID) 


oR 
BEGIN 
1f NOT LIBSCVT_DTB (4, LABEL BUFFERCHD1ST_FILESEQNO), NUMBER) 
THEN FILE ERROR (BACKUPS LABELERR, .FAB, BACKUPS _NOTANSI); 
. NUMBER “NEO -RWSV_FILE E. NOMBER 
END 

oR 
BEGIN 
IF NOT LIBSCVT_DTB (4, LABEL_BUFFERCHDI$ST FIL Ese GCNO} ane NUMBER) 
THEN FIL te ERROR (BACKU LABELERR, .FAB, BACKUPS_NOTANS]); 
garete “NEO «RWSV_V L NUMBER 


THEN FILE_ERROR (BACKUPS_WRONGVOL, .FAB); 
Read and check HDR2. 


ABEL BUFFER, *HDR2") 


WAIANAE BBB PE BB BB PAN OB 


STATUS = READ_LABEL (L 

IF NOT .STATUS THEN FILE ERROR ( (BACKUPS LABELER, .FAB, .STATUS); 

IF :LABEL BUF EERHD2S9, RECFORMAT 

OR CHSNEO (nDg § RECLER, LABEL BUFFERCHD2$T_RECLEN), 
MD2$S"BLOCKLEN, LABEL_BUFFERCHD2$T_BLOCKLEN)) 


BACKUP. SRC JREADSAVE. 839; 


————— a $$$ —_ —_—— $$$ —___-__—_-—- — 


READ AVE Read Save Set 16-50 “19 AX-11 Bliss-32 V4.0-74 b 74 
voee00! READY_NEXT_ VOLUME = set up next volume ~30b=198e 99:53:98 — HAcnup’SaeSncasave 1033-2 298 13) 
740 THEN FILE_ERROR (BACKUPS_NOTSAVESET, .FAB); 

If NOT LIBSCVT_DTB (HD2$S_RECLEN LABEL BuFFERCHD2$ RECLEN], BUFFER_SIZE) 
THEN FILE Ew 74 (BACKUPS CAB LER BACK NOTANS | ¥ gre 
IF .BUFF BBL OCK ERR, Cistto Ste. Mite 
THEN FILE "ERROR NGACKUP “BADBLKSIIES FAB); 


Skip to start of the data records. 


oO 
w 
~ 
~~ 


SeSF 


750 SKIP_TM (1); 
1 END 
f Sequential disk is all handled by INIT_SAVE_DISK. 


6 2 ELSE 
75 INIT_SAVE_DISK (1, .FILE_ID); 


759 TRUE 
760 END; ! End of routine READY_NEXT_VOLUME 


—> 4 ss 4 ts a 


PIRIPOPIPIPIRIPIPOPIPOPOPPonoNnonngen — 
FEN°S33 
~~~ 
Parr 
were 


NOU Fw 
~ 


OFFC 00000 ENTRY READY NEXT VOLUME , Save R2,R3,R4,R5,R6,R7,= ; 3627 
58 00009000G 8F DO 90003 MOVL #BACKUPS$_NOTANSI, R11 : 
5a 000000006 00 9€ 000 MOVAB LIBSCVT 1 bre. af : 
39 000000006 00 9€ 0001 MOVAB READ_LABEL : 
o 00000000" EF 9€ 0001 MOVAB RWSV~SAVE att 3 
000000006 8F »D Oo1g MOVL PBACRUPSC CABELERR, R7 : 
6 000000006 00 9€ 000 MOVAB FILE ERROR F 
é 9C AE 9 990 MOVAB -100TSP) ; 
4 68 DO 000 MOVL  RWSV_ SAVE FAB, F + 3680 
24 as D4 000 CLRL RuSV I NPERRORS : 3681 
03 40 Ab 0 000 BBS 4 rap > 3687. 
010¢ 31 000 BRW 138 ; | 
E D4 0003E 18: CLRL s = ( SP) > 3690. 
000000006 00 01 FB 00 CALLS #1, READY_TAPE : | 
000000006 00 99 FB 0004 CALLS #0 Rev ; 369) 
31404556 «BF DD 0004E SHL #827084630 : 
OC AE OOF 054 SHAB LABEL BUFFER ; 
69 i 7 CALLS H+ READ_LABEL 3 
55 D S324 VL RO, STATOS 3 
07 é 50 BLBS = STATUS, gs : 3697 
9 BB 00 PUSHR #*M<R4.R5> : 
DD 0006 PUSHL R7 : 
a 03 FB 000 CALLS #3, FILE_ERROR ; 
08 AE OF 9067 23: PUSHAB LABEL BUFFER : 3702 
$9 1 FB 0006A CALLS #1, READ LABEL : 
5 9 D 04 MOVL RO S 3 
07 & 99 BLBS STATUS, 3$ : 3703 
9 BB 0007 PUSHR  #*M<R4.R5> : 
0D 0007 PUSHL R? : 
| 66 03 FB 0007 CALLS #3, FILE_ERROR : 


seny 


F 15 
Read Save Set 16-Sep-1 :13: AX-11 Bliss-32 V4.0-74 
READY _NEXT_VOLUME = set up next volume 10-308- 1382 99:33:98 BACKUP. SRC IREADSAVE .83 2 
315244668 8F 08 af sf 7A 38: cmPL ABEL BUFFER, #827475016 
08 AF 9 PUSHAB LABEL_BUFFER 
F SAF f i 9 : cA LS 45 BATCH SSMARE 
£0 As 1D AE 6 $3 e cHPcs #6, LABEL_BUFFER+21, RWSV_FILESET_ID 
: po 37 PUSHL SP 
28 AE 9F 00099 PUSHAB LABEL_BUFFER+31 
4 DD 0009C PUSHL #4 
6A ; Fe Hi CALLS #3, LIBSCVT_DTB 
9 E A BLBS=s_-RO, 4 
0810 8F 6B 000A4 PUSHR #*M<R4,R11> 
7 DD 000A PUSHL R 
66 3 Fe OOAA CALLS #3, FILE_ERROR 
FB AB 6€ 9 QOAD 4$: CMPL NUMBER, RWSV_FILE_NUMBER 
1€ 12 00081 BNEG 
5E pb 008 PUSHL SP 
27 AE «OOF 0008 PUSHAB LABEL_BUFFER+27 
4 0D 00088 SHL #4 
6A 3 FB 000BA CALLS #3, LIBSCVT_DTB 
09 0 €8 0008D LBS “ 
0810 i 8B 000C0 PUSHR #°M<R4,R11> 
7 DD 0004 PUSHL 
66 03 FB 00066 CALLS #3, FILE_ERROR 
6E fF4 AB 10 00 ED 990¢9 5$ CMP7V #0, #16, RWSV_VOL_NUMBER, NUMBER 
98 13 OOOCF BEQL «=o 7$ 
4 0D 00001 6$ PUSHL FAB 
000000006 af DD 00003 PUSHL #BACKUP$_WRONGVOL 
66 2 FB 00009 CALLS a BILE ERROR 
32524448  8F DD 000DC 7$ PUSHL  #84425223 
OC AE 9F OO0E PUSHAB LABEL_BUFFER 
69 g FB OOOE CALLS , READ LABEL 
55 DO O00ES VL RO, STATOS 
07 $5 E8 OOOEB BLBS = STATUS, 8s 
9 8B OEE PUSHR #*M<R4.R5> 
57 DD OOOF PUSHL 7 
66 03 FB 000K 2 CALLS #3, FILE_ERROR 
46 BF Oc AE 91 000F 8$: CMPB ABEL_BUFFER*+4, #70 
08 12 OOOFA BNEQ 
OD AE 12. AE 05 2 S90F¢ CMPC3 #5, LABEL_BUFFER+10, LABEL_BUFFER+S 
0B 1 919 BEL =_:«410 
4 Dp 104 9$: PUSHL FAB 
000000006 8F »D 196 PUSHL #BACKUPS_NOTSAVESET 
66 2 FB 0010C CALLS #2, FILE7ER 
04 AE 9F OO10F 10$: §  PUSHAB BUFFER STZE 
16 AE OF git SHAB LABEL_BUFFER+10 
DD 0011 PUSHL @# 
6A Fe ou CALLS #3, LIBSCVT_DTB 
09 E8 OO1IA BLBS = RO. 
0810 8F 6B 0011D PUSHR #°M<R4,R11> 
7 DD 00121 PUSHL R 
66 03 FB 123 CALLS #3, FILE_ERROR 
0 FFO8 DO 00126 118: OVL FREE List RO 
AE 08 ad 10 0 FD 1 8 CMP2V #9 Ri6, 8(RO), BUFFER_SIZE 
B 1 EQ. ~=—s«é 28 
4 oD 001 PUSHL FAB 
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(13) 
3704 
3711 


3713 
3718 


3719 


3720 
3725 


3726 


3727 
3730 


3735 


3736 


3737 
3739 
3740 


3742 


3743 


3744 


3745 
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G1 
‘Vberdoy" Read Save Set 1$-5e0-1984 90: 13: 9 AX-11 Bliss-32 V4.0-7 Page 76 


READY _NEXT_VOLUME = set up next volume 14-Sep- BACKUP. SRCJREADSAVE. 3 i2 (13) 
| 000000006 8F DD 001 PUSH #BACKUPS _BADBLKSIZE : 
ry. ? FB 0013¢ ALL » FILETERROR : 

DD 0013F 128: SHL + 3750 
000000006 00 1 FB 1 } CALLS #1, SKIP_TM : 

A 11 0014 RB : 3687 

04 aC DD 00144 13%:  PUSHL FILE_ID : 3757 
DD 00140 PUSHL # : 
F558 cf ¢ FB 14F CALLS ae. INIT_SAVE_DISK : 

0 134 14% VL #1. RO : 3760 
4 00157 RET ; 


; Routine Size: 344 bytes, Routine Base: CODE + 1140 


15 
Sep-19 


4 
Oneat VOLUME = set up next volume under hand 10-330 -138e 99:33:98 BACKUPT SRE READSAUE .03 i2 


Re 
TRY 
; 761 1 ZSBTTL *TRY_NEXT_VOL = set next volume under handler’ 
: 308 ; GLOBAL ROUTT TRY NEXT VOLUME CF ILE 105 2 
; 4 764 1 !ee 
3 “5 765 1! 
3 5 i : ' FUNCTIONAL DESCRIPTION: 
: § 768 1 i This routine reads and verifies the Labels on the candidate 
: : r ; : : continuation volume. 
; 771 1 | CALLING SEQUENCE: 
> 2231 Mi Vi TRY_NEXT_VOLUME () 
; : 774 1 | INPUT PARAMETERS: 
: : oe? ! FILE_ID: address of continuation file ID if disk 
; 777 1: IMPLICIT INPUTS: 
: iE | eoaBm 
3 2239 780 1 | OUTPUT PARAMETERS: 
3 40 781 1! NONE 
3 41 782 1! 
3 4 783 1°! IMPLICIT OUTPUTS: 
; 4 4 1! NONE 
: 44 785 1! 
3 2265 786 1 ! ROUTINE VALUE: 
3; 2246 787 1! TRUE if volume is OK 
; 224 788 1! FALSE if not; retry requested 
; see 789 1! 
3 49 790 1! SIDE EFFECTS: 
3; 2250 791 1! NONE 
3 51 79 1! 
3 2g 793 1 Se- 
; be 3 ! BEGIN 
> 2255 796 
3 3 79 
3 FHA Las FILE_ID : REF BBLOCK; ! file ID arg 
; $35 800 ! This routine simply wraps a handler around the READY_NEXT_VOLUME 
3 2260 801 ! routine so that errors cause a non-fatal message and error return, 
3: 2261 80 ' rather than an exit. 
$ og 80 ! 
3; 226 804 
3; 2264 805 ENABLE NEXTVOL_HANDLER; 
; 365 806 READY_NEXT_VOLOME (.FILE_1D) 
; $67 808 END; ! End of routine TRY_NEXT_VOLUME 


000 000 .ENTRY TRY_NEXT_VOLUME, Save nothing 
6D 000A CF DE 0000 MOVAL 1$,7(FP) 
AC DD 0000 PUSHL FILE_ID 
FESO. 01 FB OOO0A CALLS #1, READY_NEXT_VOLUME 


Page 


77 
(14) 


3798 
3806 


—— 


| vrei 
| 


7 04 
FEIB.sCF 03 FB OOO1A 


; Routine Size: 32 bytes, Routine Base: CODE + 12A5 


ooo 


TRY NEXT VOLUME - set up next volume under hand 1b-te ev % rn 98 BACKUPT SRE ReaDSay “3 i2 


RET 

. WORD sovg nothing 

CLAL (SP) 

PUSHL SP 

MOVQ 4(AP) 

CALLS a3, névtyOL. HANDLER 


—_—_— —— _ — —_—— _ 
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| 15 
“Voeedot" NER] VOLUME’ « switch to continuation volume 1b-Se0-1984 99:33:98 Yekckup’ sre ReADSaue .a3 i2 


9 ZSBTITL “NEXT VOL = switch to continuation volume’ 
79 ROUTINE NEXT“VOLUME (COR BEB) °S “ . 

f lee 

74 FUNCTIONAL DESCRIPTION: 


This routine is invoked when end of medium is encountered on 
the input save set. It determines if there is a continuation 
medium, and if so, readies it for use and returns the first block. 


CALLING SEQUENCE: 
NEXT VOLUME (CUR_BCB) 


INPUT PARAMETERS: 
CUR_BCB: BCB of Last read (containing end of file status) 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
“oc 


of first block on new volume, or 0 if no more volumes 
SIDE EFFECTS: 
NONE 


. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
Ps 
' 
. 
‘ 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
* 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
. 
' 
* 
' 
. 
! 
. 
' 
. 
1 
. 
' 
. 
' 
. 


BEGIN 
MAP 
CUR_BCB : REF BBLOCK; ! BCB input arg 
LOCAL 
STATUS ' the usual status value 
10 10_STATUS : VECTOR (4, WORD], | 1/0 status block 
11 FAR : REF BBLOCK, ! pointer to input FAB 
ig BCB : REF BBLOCK, ' BCB of buffer in use 
1 BUFFER : REF BBLOCK, ' current 1/0 buffer 
14 NUMBER, . ' output for decimal convert 
15 ATT_CONTROL : BBLOCK (12), ! attribute control List 
1 FILE ID : BBLOCK CFID$C_LENGTH], ' extension file ID 
+ DEVITE_DESC : VECTORCL2); ! Input device desc if mounted /FOREIGN 
19 EXTERNAL ROUTINE 
0 FILE ERROR, ! signal file related error 
1 UNLOAD, ! rewind and unload tape 
¢ FREE BUFFER; ! free an 1/0 buffer 
4 
5 865 ! Discard the BCB that reported the EOF. Return 0 (no continuation) if the 


——————— 


ve Read Save Set -Sep-19 :13: AX=11 Bliss-32 V4.0-74 
1 NEXT VOLUME = switch to continuation volume 1S }eo-1944 99:33:98 BACKUP. SRC JREADSAVE .B3 


: save set is being handied through the file system. 


e 


FAB = <Rusy =SAVE F 
RuSy. IN COR spiptece _BLOCKNUM); 
REE BUFFER (CUR 8B 


F soy Coun 758 Ff ILEJ 
HEN RET 


For tape, read the trailer labels and see if a continuation exists. 


tr poL0ck CFABCFABSL_DEV], DEV$v_sed) 


UMFwrn 


3 2340 

3 1 BEGIN 

3 ¢ BCB = READ BLOCK (FALSE. FALSE); 

3 ? 2 FREE “BUFFER ¢ (.8CB); 

3 5 IF NOT -BCB(BCB_I0_STATUS) 

3 3 +5] 4 BEGIN 

3 8 4 If .BCBCBCB_I0_STA us) cat $S$_ENDOF VOLUME 

: 9 4 THEN FILE_ERROR (BA LABELERR, .FAB, Backes NOTANS!) 

3 $e 8 ; ELSE FILE-ERROR (BACKUPS “LABELERR, .FAB, .B8CBLBCB_10_STATUS)); 
: 235 892 4 

3 328 ELSE IF .B8CBCBCB_10 BCOUNT) NEQ 80 

3 $26 894 THEN FILE_ERROR TBACKUPS_LABELERR, .FAB, BACKUP$_NOTANS]); 

3 328 8 BUFFER = .BCB(BCB_BUFFER]; 

3: 235 IF .BUFFERCHDISL_ADILID)] EQL *EOF1" OR .COM_FLAGSCCOM_VERIF YING) 
3; 2358 898 THEN RETURN 0; 

3 2359 899 IF .BUFFERCHDISL_HD1LID) NEQ ‘EOV1' 

3 900 THEN FILE_ERROR TBACKUPS_LABELERR, .FAB, BACKUP$_NOTANS!); 

3 1 901 END 

s § Ht : For sequential disk, read the extension file ID and sequence number. 
3 3 905 

3 906 ELSE 

: 90 BEGIN 

3 908 IF .COM_FLAGSCCOM_VERIFYING) THEN RETURN 

3 9 909 IF NOT VINPUT AIL CAT EQ_DISK] THEN RETURN 0; 

; 0 910 ATT_CONTROLCATRSW_SI ="ATRSS_EXTFID; 

3: 2371 911 ATT“CONTROLCATRSW_TYPE) = ATRSC"EXTFID; 

3 237 18 ATT-CONTROL CATRS, ADDR = FILE_TD; 

: 237 91 ATT-CONTR O08 = 0; 

+ 2374 Pp 3914 STATUS = S$Q]O0W (CHAN = .RWSV_CHAN, 

3 2375 P 3915 FUNC = 10$_ACCESS, 

3 237 Pp 916 19s8 = 10_ STATUS 

3 237 Pp 391 PS = ATT_CONTROL 

: 2378 918 ); 

: 379 91 IF .STATUS THEN STATUS = .10 STATUSCO 

3: 2380 920 If NOT .STATUS THEN a ERROR taarcopé OPENIN, .FAB, .STATUS); 
; 1 921 IF .FILE_IDCFIDSW_NUM) EOL O 

3 2 922 AND .FILE_IDCFIDSO_RVN) EQL 0 


3:2 


Pear 45) 


| 
| 
| 
| 
| 
| 
| 


_READSAVE Read Save Set 16-Sep-19 :13: AX-11 Bliss-32 v4.0-7 Pp 1 
Rivet} NEXT_VOLUME = switch to saan volume 12-808-198e 99:33:98 BACKUP. SRC JREADSAVE . 83 32 ade + 
; 353 Ihe neu range Ty SEO, p1Sx 

; 925 AND RWSV_VOL_NUMBER + 1 

3 9 $ THEN Ritts “ERROR. aRCKOPs i Fa usy.y FAB); 

; 9 

3 9 ! ae ee g beeen of the current volume. Then set up the new input 
3 BY , 9 volume. Loop until the operator gets it right. 

: 239 9 

: 38 9 § FIN IN_SAVE (TRUE); 

3 9 4 4 WSU_SEG_NUMBER = .RWSV_SEG_NUMBER + 1; 

; 38 ; Do a UFO open on the input FAB and save away the channel. 

: 239 938 

: 939 Rusv SAVE_QUAL = .RWSV_SAVE QUAL CQUAL NEXT); 

: 2400 940 Vausy SAVE ~QUAL EQL~O THEN V_SAVE_ QUAL = -QUALCQUAL_INPU_LISTI; 
3 red Re) bisi _SAVE_FAB™= FAB = .RWSV_ Save SQOALCOOAL _PARA_FCJ; 

> 240 908 If .BBLOCK CFABLFABSL_DEV], DEV$v_SaD) 

: $e8e 3e5 § MOM cin 

; 406 946 RSV VOL NUMBER = -RWSV_VOL_NUMBER + 1; 

+ 260 94 = TRUE: 

; 408 948 FAB FABSY- uro = TRUE: 

3 2410 950 ! If the device is not mounted foreign do a SOPEN; otherwise do a SASSIGN 
a BBG 

; “18 $58 IF NOT .BBLOCKCFABCFABSL DEV}, DEVSV_FORJ 

+ 2614 54 4 THEN STATUS = SOPEN (FAB™= .FAB) 

: $tle mc | Mo 

> 2617 939 4 DEVICE _DESCtO] = .BBLOCKC.FABLFABSL_NAM], NAMSB_ DEV): 

> 2418 958 4 DEVICE-DESCL1) = .BBLOCKL.FABLFABSL NAM, “Wa 

: 2419 Pp 3959 4 STATUS-= FABLFABSL_STSJ = SASSIGN (BEVNAR = DEVICE vpése 

: oat 960 4 a CHAN = FABLFABSC_STV3); 

3 26 é 96 IF NOT .STATUS 

: 26 96 THEN FILE_ERROR (BACKUPS 0 OPENIN«STS$K SEVERE, .FAB, 

+ 2h26 ABS. TS], .FABLFABSL.STVJ): 

: " 5 965 RWSV_CHAN = .FABLFABSL_STV 

: 26 5 4 UNTIL TRY NeXT VOLUME () 

+ 2628 96 DO UNLOAD™( 

3 34 44 END 

; 4 1 44 ELSE 

; o38 97 RWSV_VOL_NUMBER = .FILE_IDCFID Ds _RVNI; 

; ° : Hd UNTIC TRY_NEXT “VOLUME ( (FILE_ID) 

; <3 976 4% BEGIN 

+ 263 977 & IF NOT .INPUT_MTLCMTL Seq. DI 

> 2438 978 & TH HEN FILE_ER RROR (BACKOP ae eeD estsse _SEVERE, .FAB); 

: 2439 P 3979 4 $Q]0W (CHAN = .CURRENT_VOBCVCB_CHAN), ~ 
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a 13 
switch to continuation volume 4-$ 308} 


+ a = 10$_UNLOAD 


Read the first block from the input volume. 


RWSV_IN_SEQ_ 
RWSV_IN-VBN_ 
END; 

34 
03 67 
SA 40 
ECED 
09A0 
0050 
31464F45 

00D 

* sisoere 


-RWSV_IN_SEQ; 
-RWSV-IN_VBN; 
READ_SEG “BLOCK (TRUE) ” 


O1FC 


—_- = 
> @ 


oc 


WODCONGA POWWMOPFPOPOP POM oNOWOoO 
NOOWPY OCMWOW NOMS MMM —MWONMMUIM w— 


0088 


a 39:53:98 


! End of routine NEXT_VOLUME 


DO 0000 
DO 0000 
9E 


oO 
ooo 
ooo 
ooo 


ooormmn 


ew %& 
Fern w 


O-9 M99 1999 8 SW WMO MAIMWM NOOCVUOO 
SAINI NSO AEGAN E & & 
SELSSSRNSMOSVO> oO wW—Mo 
uw 
tad 


DWWOW" ODO COW 2" 9W- ODO ODN] “Wo 

OOOOCOooOoQoQoooQoQooooooooooooooooooo 
SOOoOQooooooooooooooooooooooooc“oeceo 
OOOO OCOOOCOSCOCSCOOSGOOOCOOOSOSOOoOOOooOooooo 


oo 
wr 


00000 NEXT_VOLUME: 
RD 


Save R2,R3,R4,R5,R6,R7,RB 
$ LABELERR, RB 


8B 
FILE~ERROR, R 
RWSV~ “SAVE *auAL, RG 


“$ 
RWSV_SAVE_FAB, FAB 
cur_6CB, 
20(RO), RWSV_IN_VBN 


FREE BUFFER 
43° QUAL#15, 


#5 TO ahead. 7$ 
ie. READ_BLOCK 
BCB 


: 
#1, FREE_BUFFER 
BCB), 
34 BCB) #2464 
24(BCB), -(SP) 
6(BCB), #80 


9826691397 


oa 9839759973 
eal 


AX-11 Bliss-32 V4.0-7 
BACKUP. SRC JREADSAVE. 63; 
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ADSAVE Read Save Set 16-Sep-1984 00:13: AX-11 Bliss-32 V4.0-74 
vOee80) NEXT VOLUME = switch to continuation volume 1 300-1984 99:33:98 EBACKUP.SRe READSAVE .832;2 
DD 00099 " PUSHL R 
65 e8 Fe 8 9B CALLS Rg FILE_ERROR 
0084 0 Hi $$: BRW ie 
59 00D2 4 03 € Al 7$: BBS #3, COM_FLAGS, 10$ 
0 06c8 C4 OD 0047 MOVL §INPUT_MTL, RO 
0 1 AO €E9 OOOA BLBC 49 (RO) bs 
10 AE 00270006 8F DO 000B MOVL #2555910, ATT_CONTROL 
14 AE 08 AE 9E 0008 MOVAB FILE_ID, ATT_CONTROL+4 
1 AE 04 908 CLRL ATT _CONTROL+8 
7E D4 000C CLRL =(SP) 
16 AE 9F 000C PUSHAB ATT CONTROL 
7E 7C 000¢ CLRQ ss = (SB) 
7E 7C 000¢ CLRQ = =( SP) 
7E 7C€ 000C9 CLRQ = (SP) 
3¢ AE 9F G00CB PUSHAB 10 STATUS 
32 DD OOOCE PUSHL #50 
08 A4& DD 0000 PUSHL RWSV_CHAN 
7E 04 0000 CLRL.  =(SPY 
000000006 00 OC FB 000D CALLS #12, STA_QIOW 
32 50 pO 000DC MOVL RO, STATOS 
0 52 9 OOODF BLBC STATUS, 8$ 
52 1¢ AE C 000E2 MOVZWL 10 STATUS, STATUS 
0D 52 EB 000E6 BLBS STATUS, 9$ 
3¢ DD OO0ES 8$ PUSHL STATUS 
53 DD OO0EB PUSHL FAB 
000000006 8F oD OED PUSHL #BACKUP$_OPENIN 
65 03 FB OOOF CALLS #3, FILE-ERROR 
08 AE BS 000F6 9S TStW = FILE_ID 
08 12 000F9 BNEQ 11$ 
Oc AE 85 000FB TSTW = FILE_1D+4 
03 12 OOOFE BNEQ 11$ 
50 D4 00100 10$: CLRL RO 
04 0010¢ RET 
50 06C8 C4 DO 00103 118: MOVL  INPUT_MTL, RO 
19 31 AO Eg 00108 BLBC 49(ROS, 128 
50 FB =A 3C 0010C MOVZWL RWSV_VOL_NUMBER, RO 
50 06 00110 INCL 
50 OC AE 08 00 ED Oo112 CMPZ7vV #0, #8, FILE_ID+4, RO 
08 13 0011 EQL~—sé1 28 
53 DD OO11A PUSHL FAB 
000000006 BF DD 0011C PUSHL M#BACKUP$_INVFILEXT 
65 02 FB 00122 CALLS #2, FILETERROR 
01 DD 00125 12$:  PUSHL #1 
FBGF CF 01 FB 00127 CALLS #1, FIN_IN SAVE 
FA A& Bb 0012C INCW RWSV_SEG _NOMBER 
74 94 DO 0012F MOVL § @RWSV_SAVE_QUAL, RWSV_SAVE_QUAL 
04 iF 00132 BNEQ 13$ 
64 58 A4 DO 001 MOVL QUAL, RWSV_SAVE_QUAL 
50 64 DO 00138 13$:  MOVL RWSV. SAVE GUAL,~RO 
53 04 Ad D0 01 B MOVL 4(R 
04 Ad 53 DO 0013F MOVL FAB, RWSV_SAVE_FAB 
63 40 A3 05 £1 00143 BBC #5, 64(FAB), 18S 
F8 «AG BG 00148 INCW Rusy VOL NUMB 
06 a3 010¢ BF A 0148 BISw2 # 6 (FAB) 
0B 4 A3 E8 0015 LBS 67(FAB), 14$ 
53 DD 00155 PUSHL FAB 
000000006 00 01 FB 00157 CALLS #1, SYSSOPEN 
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16 
ADSAVE Read Save Set 18-90 “19 AX-11 Bliss-32 V4.0-74 Pa 4 
a NEXT vOLUME = switch to continuation volume 12-300-} ae 9: 33 9g BACKUP. SRC JREADSAVE .832;2 ge 8 
| 20 11 156 BRB 15$ : 
50 3 AS DO 00160 148: mov 40(F AB), RO : 3957 
4 A A 00164 MOVZBL 57(RO), DEVICE_DESC : 
06 AE 460A b0 168 VL 68(RO), DEVICE-DESC +4 + 3958 
7 C 00160 CLRO -(SP) : 3960 
o¢ as OF 16F PUSHAB 12(FAB) : 
C AE 9F 001 : PUSHAB DEVICE_DESC : 
000000006 4 F 17 CALLS #4, sr SSAssiGn ; 
08 iA 0 D 17 MOVL RO, 8(FAB) : 
5 09 91 15$: MOVL RO, Pa : 3959 
OF E 1 BLBS Birk US, 16$ : 3962 
E 08 AS 70 ot mOva (FAB), =(SP) : 3964 
3 DD 0018A PUSHL rae : 3963 
000000006 BF DD 001 PUSHL ACKUP$_OPENIN®4 : 
65 04 FB 01 CALLS a FILE-ERROR : 
08 AG 0c A3 DO 0019 198: MOVL 12(F AB), “RWSV_CHAN + 3965 
FEG1=—sCF 98 FB 0019A 17$: CALLS #0, TRY_NEXT_QOLUME : 3967 
4C EB 0019F BLBS RO, 218 : 
000000006 00 00 FB Ding CALLS UNLOAD : 3968 
EF 1 1A BRB 178 ; 
FB AG OC AE 98 OO1AB 18S: MOV7BW FILE_ID+4, RWSV_VOL_NUMBER + 3973 
08 AE 9F 00180 19S: PUSH FILE-ID : 3974 
FE28 cf 1 fe 018 CALLS #1, TRY_NEXT_VOLUME 3 
3 0 €8 00188 BLBS RO, 2187 : 
50 06¢8 C4 D0 0188 MOVL INPUT a RO : 3977 
08 1 49 E8 O01C BLBS 49(ROJ, 268 : 
53 DD 001C4 PUSHL FAB : 3978 
000000006 8F DD 00166 PUSHL #BACKUPS_READERR+4 : 
65 92 FB OOICC CALLS #2, FILEERROR : 
—E 7C OOICF 208: CLRO 20s = ( §P) : 3981 
7E 7C 00101 CLRO -(SP) : 
7E 7¢ 90103 CLRO -(SP) : 
7 7C 00105 CLRO -(SP) : 
7 01 7D 00107 MOVO #1, =(SP : 
5 06D4 C4 po O1DA VL CURRENT _VCB RO ; 
7E 08 AO 3C 0010F MOVZ2WL 8(RO), =(SP5 : 
7E D4 O01 CLRL -(SP) ; 
000000006 00 ya re OO1E CALLS #2, SYS$Q10W : 
C2 11 OO1EC BRB : 3974 
16 AG 10 As 00 OOieE 218: MOVL a IN_SEQ, RWSV_IN_SEQ_0 ; 3988 
38 AG 34 as DO OO1F MOVL RWSV-IN-VBN, RWSV~IN~VBN-O : 3989 
01 DD O01F8 PUSHL # : 3990 
EE22. CF 01 FB OOIFA CALLS #1, READ_SEQ_BLOCK ; 
04 OO1FF RET ; 3992 
; Routine Size: 512 bytes, Routine Base: CODE + 12C5 
3: 2653 993 «1 
: 2454 994 1 END 
> 2655 995 0 ELUDOM 
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PSECT SUMMARY 

Name Bytes Attributes 

ese G18) OVEtcnottt: MB MOMENI: EEL: MEL: RLABRIE AHN 
Library Statistics 
wocecee> Symbols -------=- Pages Processing 

File Total Loaded Percent Mapped Time 

.$255$0UA28: (SYSL163L18.132;1 18619 114 0 1000 00:01.9 


; Information: 1 


; Warnings: 


; Errors: 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:READSAVE/OBJ=OBJ$:READSAVE MSRC$:READSAVE/UPDATE=(ENH$: READSAVE ) 


Size: $317 « + 2124 data bytes 
Run Time: 1:34.5 
Elapsed Time: d 


Lines/CPU Min: 2536 
Lexenes/(PU-Rin: 24401 
Y Used: 460 pages 
— ation Complete 
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